diff options
| author | scgilardi <scgilardi@gmail.com> | 2009-02-12 14:41:03 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2009-02-12 14:41:03 +0000 |
| commit | 5550ed9a2215a927c3681b91113bc1d0fd36c04d (patch) | |
| tree | d28c3644513d8e33bf7c909bc7ea6e8f7c7804a1 | |
| parent | 6d1b17b9f7d7723d71b2fea70d51bf88a9fb0442 (diff) | |
revert fix for issue 28, unregistered contributor
| -rw-r--r-- | src/clojure/contrib/lazy_seqs.clj | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/src/clojure/contrib/lazy_seqs.clj b/src/clojure/contrib/lazy_seqs.clj index e9915143..9b40af26 100644 --- a/src/clojure/contrib/lazy_seqs.clj +++ b/src/clojure/contrib/lazy_seqs.clj @@ -75,14 +75,12 @@ (list nil))) (defn partition-all - "Lazily break coll into chunks of length n (or less, for the final - chunk)." - ([n coll] - (partition-all n n coll)) - ([n step coll] - (when (seq coll) - (lazy-cons (take n coll) - (partition-all n step (drop step coll)))))) + "Lazily break s into chunks of length n (or less, for the + final chunk)." + [n s] + (when (seq s) + (lazy-cons (take n s) + (partition-all n (drop n s))))) (defn random-permutation "Return a random permutation of coll" |