diff options
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." |