made reduce not retain head

1 files changed, 8 insertions, 7 deletions

diff --git a/src/boot.clj b/src/boot.clj
index 410a9cf9..589bb177 100644
--- a/src/boot.clj
+++ b/src/boot.clj
@@ -443,16 +443,17 @@
    (let [s (seq coll)]
      (if s
        (if (instance? clojure.lang.IReduce s)
-         (. s (reduce f))
+         (. #^clojure.lang.IReduce s (reduce f))
          (reduce f (first s) (rest s)))
        (f))))
   ([f val coll]
-   (let [s (seq coll)]
-     (if s
-       (if (instance? clojure.lang.IReduce s)
-         (. s (reduce f val))
-         (recur f (f val (first s)) (rest s)))
-       val))))
+     (let [s (seq coll)]
+       (when (instance? clojure.lang.IReduce s)
+         (. #^clojure.lang.IReduce s (reduce f val)))
+       (loop [f f val val s s]
+         (if s
+           (recur f (f val (first s)) (rest s))
+           val)))))
 
 (defn reverse
   "Returns a seq of the items in coll in reverse order. Not lazy."