diff options
| -rw-r--r-- | src/boot.clj | 9 |
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))) |