From fb52b69d75868e4ce49d0123bc1ceaae8d6f5fe8 Mon Sep 17 00:00:00 2001
From: Meikel Brandmeyer <mb@kotka.de>
Date: Thu, 27 May 2010 19:00:30 +0200
Subject: Fix reductions on empty input sequence

Refers #362

Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
---
 src/clj/clojure/core.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index 4c4fc473..2746a610 100644
--- 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
-- 
cgit v1.2.3-70-g09d2