diff options
| author | Meikel Brandmeyer <mb@kotka.de> | 2010-05-27 19:00:30 +0200 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-06-03 21:20:38 -0400 |
| commit | fb52b69d75868e4ce49d0123bc1ceaae8d6f5fe8 (patch) | |
| tree | 5e0acb6a7af6d36e718acac6d328da28c9f8c541 | |
| parent | 31c184a0738b36a0610b6d3034a256bc970643bc (diff) | |
Fix reductions on empty input sequence
Refers #362
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
| -rw-r--r-- | src/clj/clojure/core.clj | 2 | ||||
| -rw-r--r-- | test/clojure/test_clojure/sequences.clj | 2 |
2 files changed, 3 insertions, 1 deletions
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 diff --git a/test/clojure/test_clojure/sequences.clj b/test/clojure/test_clojure/sequences.clj index a8db5cb5..211674bf 100644 --- 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]) |