Fix reductions on empty input sequence

Refers #362 Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
bwanab · Jun 4, 2010 · fb52b69 · fb52b69
1 parent 31c184a
commit fb52b69
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
@@ -5555,7 +5555,7 @@
      (lazy-seq
       (if-let [s (seq coll)]
         (reductions f (first s) (rest s))
-        (f))))
+        (list (f)))))
   ([f init coll]
      (cons init
            (lazy-seq

diff --git a/test/clojure/test_clojure/sequences.clj b/test/clojure/test_clojure/sequences.clj
@@ -1138,6 +1138,8 @@
        {1 4 2 2 3 1} '(1 1 1 1 2 2 3)))
 
 (deftest test-reductions
+  (is (= (reductions + nil)
+         [0]))
   (is (= (reductions + [1 2 3 4 5])
 	 [1 3 6 10 15]))
   (is (= (reductions + 10 [1 2 3 4 5])