From 939378fcd107bb41358cd08018c904b8818b7b5b Mon Sep 17 00:00:00 2001 From: Nathan Marz Date: Thu, 1 Sep 2016 22:16:39 -0400 Subject: [PATCH] fix transformed, all tests passing --- src/clj/com/rpl/specter.cljc | 7 ++++--- test/com/rpl/specter/core_test.cljc | 8 ++++---- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/src/clj/com/rpl/specter.cljc b/src/clj/com/rpl/specter.cljc index 777509f..3e490d0 100644 --- a/src/clj/com/rpl/specter.cljc +++ b/src/clj/com/rpl/specter.cljc @@ -474,11 +474,12 @@ will be parameterized in the order of which the parameterized navigators were declared." [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] - (next-fn (compiled-transform late update-fn structure))) + (next-fn (compiled-transform late late-fn structure))) (transform* [this structure next-fn] - (next-fn (compiled-transform late update-fn structure))))) + (next-fn (compiled-transform late late-fn structure))))) (def ^{:doc "Keeps the element only if it matches the supplied predicate. This is the diff --git a/test/com/rpl/specter/core_test.cljc b/test/com/rpl/specter/core_test.cljc index 3014059..b221794 100644 --- a/test/com/rpl/specter/core_test.cljc +++ b/test/com/rpl/specter/core_test.cljc @@ -575,11 +575,11 @@ pred2 (gen/elements [odd? even?]) updater (gen/elements [inc dec])] - (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 [(s/keypath k1) pred1 [(s/keypath k2) pred2 (s/keypath 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 [(s/keypath k1) pred1] [(s/keypath k2) pred2] (s/keypath 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 (apply =