luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix transformed, all tests passing

Browse source
This commit is contained in:
Nathan Marz 2016-09-01 22:16:39 -04:00
parent 23299457db
commit 939378fcd1
2 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/clj/com/rpl/specter.cljc
View file

@ -474,11 +474,12 @@
will be parameterized in the order of which the parameterized navigators will be parameterized in the order of which the parameterized navigators
were declared." were declared."
[path update-fn] [path update-fn]
(late-bound-nav [late (late-path path)] (late-bound-nav [late (late-path path)
late-fn update-fn]
(select* [this structure next-fn] (select* [this structure next-fn]
(next-fn (compiled-transform late update-fn structure))) (next-fn (compiled-transform late late-fn structure)))
(transform* [this structure next-fn] (transform* [this structure next-fn]
(next-fn (compiled-transform late update-fn structure))))) (next-fn (compiled-transform late late-fn structure)))))
(def (def
^{:doc "Keeps the element only if it matches the supplied predicate. This is the ^{:doc "Keeps the element only if it matches the supplied predicate. This is the

8
test/com/rpl/specter/core_test.cljc
View file

@ -575,11 +575,11 @@
pred2 (gen/elements [odd? even?]) pred2 (gen/elements [odd? even?])
updater (gen/elements [inc dec])] updater (gen/elements [inc dec])]
(let [paths [(path (s/multi-path [(s/keypath k1) pred1 [(s/keypath k2) pred2 k3]])) (let [paths [(path (s/multi-path [(s/keypath k1) pred1] [(s/keypath k2) pred2] k3))
(path (s/multi-path [k1 pred1] [(s/keypath k2) pred2 (s/keypath k3)])) (path (s/multi-path [k1 pred1] [(s/keypath k2) pred2] (s/keypath k3)))
(path (s/multi-path [(s/keypath k1) pred1 [(s/keypath k2) pred2 (s/keypath k3)]])) (path (s/multi-path [(s/keypath k1) pred1] [(s/keypath k2) pred2] (s/keypath k3)))
(s/multi-path [k1 pred1] [k2 pred2] k3) (s/multi-path [k1 pred1] [k2 pred2] k3)
(path (s/multi-path [k1 pred1] [(s/keypath k2) pred2 k3]))]] (path (s/multi-path [k1 pred1] [(s/keypath k2) pred2] k3))]]
(and (and
(apply = (apply =