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 02a4bf09ca
commit e7aae0cb0f
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

@ -653,7 +653,9 @@
)) ))
(defn do-compiled-traverse [apath structure] (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] (reduce [this afn start]
(let [cell (mutable-cell start)] (let [cell (mutable-cell start)]
(compiled-traverse* (compiled-traverse*