From b03e19aa341fea01c1279a74f4184f6538d0f72e Mon Sep 17 00:00:00 2001
From: Jarkko Oranen <chousuke@gmail.com>
Date: Sun, 21 Jun 2009 17:48:22 +0300
Subject: core: make every? return false instead of nil

Refs #71

Signed-off-by: Chouser <chouser@n01se.net>
---
 src/clj/clojure/core.clj | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index 7859ba44..e8068dff 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -1465,10 +1465,10 @@
   false."
   {:tag Boolean}
   [pred coll]
-    (if (seq coll)
-      (and (pred (first coll))
-           (recur pred (next coll)))
-      true))
+  (cond
+   (nil? (seq coll)) true
+   (pred (first coll)) (recur pred (next coll))
+   :else false))
 
 (def
  #^{:tag Boolean
-- 
cgit v1.2.3-18-g5258