From 80f36b287a89c1773f19ef3a9866353b0281455f Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Mon, 23 Feb 2009 19:15:09 +0000 Subject: removed dorun calls to first --- src/clj/clojure/core.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index b13bc52b..243bcd22 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -1742,10 +1742,10 @@ be used to force any effects. Walks through the successive nexts of the seq, does not retain the head and returns nil." ([coll] - (when (and (seq coll) (or (first coll) true)) + (when (seq coll) (recur (next coll)))) ([n coll] - (when (and (seq coll) (pos? n) (or (first coll) true)) + (when (and (seq coll) (pos? n)) (recur (dec n) (next coll))))) (defn doall -- cgit v1.2.3-18-g5258