From 4460ee313e33159397aaf1450a95f6018479f088 Mon Sep 17 00:00:00 2001 From: Nathan Marz Date: Thu, 4 Aug 2016 16:20:23 -0400 Subject: [PATCH] all tests passing --- src/clj/com/rpl/specter/impl.cljx | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/clj/com/rpl/specter/impl.cljx b/src/clj/com/rpl/specter/impl.cljx index 0742310..18c01a3 100644 --- a/src/clj/com/rpl/specter/impl.cljx +++ b/src/clj/com/rpl/specter/impl.cljx @@ -344,7 +344,6 @@ (exec-transform* curr structure (fn [structure-next] (exec-transform* next structure-next next-fn)))))))] - (reduce combiner all))) (defn coerce-rich-navigator [nav] @@ -1033,7 +1032,7 @@ m (-> protpath-prot :sigs keys first) expected-params (num-needed-params protpath)] (doseq [[atype apath] extensions] - (let [p (comp-paths* apath) + (let [p (comp-paths-internalized apath) needed-params (num-needed-params p) rich-nav (extract-rich-nav p) ]