diff options
| -rw-r--r-- | src/boot.clj | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/boot.clj b/src/boot.clj index 05c9459a..c5548980 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -556,12 +556,12 @@ coll)) (defn cycle [coll] - (let [rep (fn [xs ys] - (if xs - (lazy-cons (first xs) (rep (rest xs) ys)) - (recur ys ys)))] - (when (seq coll) - (rep (seq coll) (seq coll))))) + (when (seq coll) + (let [rep (fn [xs] + (if xs + (lazy-cons (first xs) (rep (rest xs))) + (recur (seq coll))))] + (rep (seq coll))))) (defn split-at [n coll] [(take n coll) (drop n coll)]) |