From e7aae0cb0fc8e025b9745725c570a011fa53c2d5 Mon Sep 17 00:00:00 2001
From: Nathan Marz <nathan@nathanmarz.com>
Date: Thu, 9 Jun 2016 17:21:11 -0400
Subject: [PATCH] add non-init reduce case to traverse

---
 src/clj/com/rpl/specter/impl.cljx | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/clj/com/rpl/specter/impl.cljx b/src/clj/com/rpl/specter/impl.cljx
index 00e6da7..3d48d0b 100644
--- 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*