use recur in concat$cat

1 files changed, 5 insertions, 4 deletions

diff --git a/src/clj/clojure/boot.clj b/src/clj/clojure/boot.clj
index c225d6ac..7fbfd4d1 100644
--- a/src/clj/clojure/boot.clj
+++ b/src/clj/clojure/boot.clj
@@ -426,11 +426,12 @@
        (lazy-seq (first x) (concat (rest x) y))
        (seq y)))
   ([x y & zs]
-     (let [cat (fn cat [xys]
+     (let [cat (fn cat [xys zs]
                    (if (seq xys)
-                     (lazy-seq (first xys) (cat (rest xys)))
-                     (apply concat zs)))]
-       (cat (concat x y)))))
+                     (lazy-seq (first xys) (cat (rest xys) zs))
+                     (when zs
+                       (recur (first zs) (rest zs)))))]
+       (cat (concat x y) zs))))
  
 ;;;;;;;;;;;;;;;;at this point all the support for syntax-quote exists;;;;;;;;;;;;;;;;;;;;;;
 (defn =