diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-02-18 03:07:20 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-02-18 03:07:20 +0000 |
| commit | fd977719ed7d1e590bc466783a66f032668344b5 (patch) | |
| tree | eca51858b4349e7286da77c70a3b1dc68c7756cf /src | |
| parent | 38578424ae193dd87a6aef7f4296f22049a2dfbc (diff) | |
added sequence
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/core.clj | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index eb0c53e4..ac223ad6 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -1433,6 +1433,14 @@ ;;;;;;;;;;;;;;;;;;; sequence fns ;;;;;;;;;;;;;;;;;;;;;;; +(defn sequence + "Coerces coll to a (possibly empty) sequence, if it is not already + one. Will not force a lazy seq. (sequence nil) yields ()" + [coll] + (if (seq? coll) + coll + (or (seq coll) ()))) + (defn every? "Returns true if (pred x) is logical true for every x in coll, else false." |