diff options
| author | Jarkko Oranen <chousuke@gmail.com> | 2009-06-21 17:48:22 +0300 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-06-21 12:12:59 -0400 |
| commit | b03e19aa341fea01c1279a74f4184f6538d0f72e (patch) | |
| tree | f994fa7b8f0dc7725f3b90c188efa6b65bde036a | |
| parent | fa3d24973fc415b35ae6ec8d84b61ace76bd4133 (diff) | |
core: make every? return false instead of nil
Refs #71
Signed-off-by: Chouser <chouser@n01se.net>
| -rw-r--r-- | src/clj/clojure/core.clj | 8 |
1 files changed, 4 insertions, 4 deletions
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 |