diff options
| -rw-r--r-- | src/boot.clj | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/boot.clj b/src/boot.clj index 5fb66883..8ca20f42 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -99,10 +99,13 @@ (second clauses) (cons 'cond (rest (rest clauses)))))) +(defn seq [coll] + (. clojure.lang.RT (seq coll))) + (defn spread [arglist] (cond (nil? arglist) nil - (nil? (rest arglist)) (first arglist) + (nil? (rest arglist)) (seq (first arglist)) :else (cons (first arglist) (thisfn (rest arglist))))) (defn apply [#^clojure.lang.IFn f & args] @@ -120,8 +123,7 @@ (defmacro lazy-cons [x & body] (list 'fnseq x (list* 'fn [] body))) -(defn seq [coll] - (. clojure.lang.RT (seq coll))) + (defn concat ([] nil) |