fixed bug in concat when passed one collection not returning seq

1 files changed, 5 insertions, 4 deletions

diff --git a/src/boot.clj b/src/boot.clj
index e53d2b80..542a0e28 100644
--- a/src/boot.clj
+++ b/src/boot.clj
@@ -133,12 +133,14 @@
 (defmacro lazy-cons [x & body]
   (list 'fnseq x (list* 'fn [] body)))
 
-
+(defn seq [coll]
+  (. clojure.lang.RT (seq coll)))
+  
 (defn concat
       ([] nil)
       ([x & xs]
           (cond
-           (nil? xs) x
+           (nil? xs) (seq x)
            (nil? x) (recur (first xs) (rest xs))
            :else (lazy-cons (first x) (apply concat (rest x) xs)))))
 
@@ -239,8 +241,7 @@
 
 ;;Collection stuff
 
-(defn seq [coll]
-  (. clojure.lang.RT (seq coll)))
+
 
 (defn count [coll]
   (. clojure.lang.RT (count coll)))