simplified cycle

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)])