diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-02-23 19:15:09 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-02-23 19:15:09 +0000 |
| commit | 80f36b287a89c1773f19ef3a9866353b0281455f (patch) | |
| tree | 83300d52c55fe6f904fbc8be53ed5d06d16f6b6d | |
| parent | 9253928ba2330b9929eb26577ba20047fb24c5de (diff) | |
removed dorun calls to first
| -rw-r--r-- | src/clj/clojure/core.clj | 4 |
1 files changed, 2 insertions, 2 deletions
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 |