fixed print of ISeqs

1 files changed, 4 insertions, 4 deletions

diff --git a/src/clj/clojure/boot.clj b/src/clj/clojure/boot.clj
index 3d8667c1..68cb448d 100644
--- a/src/clj/clojure/boot.clj
+++ b/src/clj/clojure/boot.clj
@@ -3397,10 +3397,10 @@
 
 (defn- print-sequential [#^String begin, print-one, #^String sep, #^String end, sequence, #^Writer w]
   (.write w begin)
-  (loop [[f & r :as s] (seq sequence)]
-    (if r
-      (do (print-one f w) (.write w sep) (recur r))
-      (when s (print-one f w))))
+  (loop [s (seq sequence)]
+    (if (rest s)
+      (do (print-one (first s) w) (.write w sep) (recur (rest s)))
+      (when s (print-one (first s) w))))
   (.write w end))
 
 (defn- print-meta [o, #^Writer w]