diff options
| author | scgilardi <scgilardi@gmail.com> | 2009-02-17 21:47:37 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2009-02-17 21:47:37 +0000 |
| commit | d7695aa72adcdbdffe396b87d8f0a2dea363ffc1 (patch) | |
| tree | b85b1701cdab4100e2908d080535f5be3cc9d538 /src | |
| parent | d5701c377f826266d19e21ce11398616d63f25bb (diff) | |
update lazy-seqs for lazy-seq
Diffstat (limited to 'src')
| -rw-r--r-- | src/clojure/contrib/lazy_seqs.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/lazy_seqs.clj b/src/clojure/contrib/lazy_seqs.clj index 1806cca2..118a5602 100644 --- a/src/clojure/contrib/lazy_seqs.clj +++ b/src/clojure/contrib/lazy_seqs.clj @@ -40,7 +40,7 @@ (if (some #(zero? (rem n %)) (take-while #(<= (* % %) n) primes)) (recur (+ n f) r) - (lazy-cons n (primes-from (+ n f) r)))) + (lazy-seq (cons n (primes-from (+ n f) r))))) wheel (cycle [2 4 2 4 6 2 6 4 2 4 6 6 2 6 4 2 6 4 6 8 4 2 4 2 4 8 6 4 6 2 4 6 2 6 6 4 2 4 6 2 6 4 2 4 2 10 2 10])] @@ -52,5 +52,5 @@ "A lazy sequence of all the fibonacci numbers.") (defvar powers-of-2 - (lazy-cons 1 (map #(bit-shift-left % 1) powers-of-2)) + (lazy-seq (cons 1 (map #(bit-shift-left % 1) powers-of-2))) "A lazy sequence of all the powers of 2") |