add non-init reduce case to traverse

2016-06-09 17:21:11 -04:00 · 2016-06-09 17:21:11 -04:00 · e7aae0cb0f
commit e7aae0cb0f
parent 02a4bf09ca
1 changed files with 3 additions and 1 deletions
--- a/src/clj/com/rpl/specter/impl.cljx
+++ b/src/clj/com/rpl/specter/impl.cljx
@ -653,7 +653,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*