diff options
| -rw-r--r-- | src/clj/clojure/core.clj | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index fcf08c5f..1b25eabc 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -1447,12 +1447,12 @@ "Returns a lazy sequence of the items in coll for which (pred item) returns true. pred must be free of side-effects." [pred coll] - (lazy-seq - (loop [coll coll] - (when (seq coll) - (if (pred (first coll)) - (cons (first coll) (filter pred (more coll))) - (recur (more coll))))))) + (let [step (fn [pred coll] + (when (seq coll) + (if (pred (first coll)) + (clojure.lang.Cons. (first coll) (filter pred (more coll))) + (recur pred (more coll)))))] + (lazy-seq (step pred coll)))) (defn remove @@ -1480,11 +1480,11 @@ (defn drop "Returns a lazy sequence of all but the first n items in coll." [n coll] - (lazy-seq - (loop [n n coll coll] - (if (and (pos? n) (seq coll)) - (recur (dec n) (more coll)) - coll)))) + (let [step (fn [n coll] + (if (and (pos? n) (seq coll)) + (recur (dec n) (more coll)) + (seq coll)))] + (lazy-seq (step n coll)))) (defn drop-last "Return a lazy sequence of all but the last n (default 1) items in coll" @@ -1495,11 +1495,11 @@ "Returns a lazy sequence of the items in coll starting from the first item for which (pred item) returns nil." [pred coll] - (lazy-seq - (loop [coll coll] - (if (and (seq coll) (pred (first coll))) - (recur (more coll)) - coll)))) + (let [step (fn [pred coll] + (if (and (seq coll) (pred (first coll))) + (recur pred (more coll)) + (seq coll)))] + (lazy-seq (step pred coll)))) (defn cycle "Returns a lazy (infinite!) sequence of repetitions of the items in coll." |