CLJS-792: Implement IReduce on PersistentArrayMap

clojure · May 21, 2014 · 76cf7c2 · 76cf7c2
1 parent f9a3337
commit 76cf7c2
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/src/cljs/cljs/core.cljs b/src/cljs/cljs/core.cljs
@@ -4388,7 +4388,13 @@ reduces them without incurring seq initialization"
               @init
               (recur (+ i 2) init)))
           init))))
-
+
+  IReduce
+  (-reduce [coll f]
+    (seq-reduce f coll))
+  (-reduce [coll f start]
+    (seq-reduce f start coll))
+
   IFn
   (-invoke [coll k]
     (-lookup coll k))

diff --git a/test/cljs/cljs/reducers_test.cljs b/test/cljs/cljs/reducers_test.cljs
@@ -24,7 +24,9 @@
                (r/fold g f {:a 1 :b 2 :c 3})
                [#{:a :b :c} #{1 2 3}]))
     (let [m (into {} (for [x (range 2048)] [x (- x)]))]
-      (assert (= (r/reduce f (g) m) (r/fold g f m))))))
+      (assert (= (r/reduce f (g) m) (r/fold g f m)))))
+  ;; CLJS-792
+  (assert (= (into [] (r/map identity {})) [])))
 
 (defn test-all []
   (test-builtin-impls))