core: make every? return false instead of nil

Refs clojure#71 Signed-off-by: Chouser <chouser@n01se.net>
richhickey · Jun 21, 2009 · b03e19a · b03e19a
1 parent fa3d249
commit b03e19a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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