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

add non-init reduce case to traverse

Browse source
This commit is contained in:
Nathan Marz 2016-06-09 17:21:11 -04:00
parent f9e6b621a9
commit 911dab5e52
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -654,7 +654,9 @@
))
(defn do-compiled-traverse [apath structure]
(reify clojure.lang.IReduceInit
(reify clojure.lang.IReduce
(reduce [this afn]
(.reduce this afn (afn)))
(reduce [this afn start]
(let [cell (mutable-cell start)]
(compiled-traverse*