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

all tests passing

Browse source
This commit is contained in:
Nathan Marz 2016-08-04 16:20:23 -04:00
parent 53682de1eb
commit 4460ee313e
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/clj/com/rpl/specter/impl.cljx
View file

@ -344,7 +344,6 @@
(exec-transform* curr structure (exec-transform* curr structure
(fn [structure-next] (fn [structure-next]
(exec-transform* next structure-next next-fn)))))))] (exec-transform* next structure-next next-fn)))))))]
(reduce combiner all))) (reduce combiner all)))
(defn coerce-rich-navigator [nav] (defn coerce-rich-navigator [nav]
@ -1033,7 +1032,7 @@
m (-> protpath-prot :sigs keys first) m (-> protpath-prot :sigs keys first)
expected-params (num-needed-params protpath)] expected-params (num-needed-params protpath)]
(doseq [[atype apath] extensions] (doseq [[atype apath] extensions]
(let [p (comp-paths* apath) (let [p (comp-paths-internalized apath)
needed-params (num-needed-params p) needed-params (num-needed-params p)
rich-nav (extract-rich-nav p) rich-nav (extract-rich-nav p)
] ]