diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-02-13 15:08:58 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-02-13 15:08:58 +0000 |
| commit | db2710113b7019e6d28847b7cb598ace9ee923b9 (patch) | |
| tree | 840fbeebf28d6b60d944d51b0160377b339bfb88 | |
| parent | 795925cab038e670a7e23fb37e9d7801f03556b9 (diff) | |
[lazy] fixed take-while
| -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 3daccc6b..eb310055 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -1512,8 +1512,8 @@ [pred coll] (lazy-seq (when-let [s (seq coll)] - (when (pred (first s))) - (cons (first s) (take-while pred (more s)))))) + (when (pred (first s)) + (cons (first s) (take-while pred (more s))))))) (defn drop "Returns a lazy sequence of all but the first n items in coll." |