diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/boot.clj | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/boot.clj b/src/boot.clj index 891dabfd..c399f0f5 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -1016,7 +1016,10 @@ not-every? (comp not every?)) there are fewer than n." [n coll] (when (and (pos? n) (seq coll)) - (lazy-cons (first coll) (take (dec n) (rest coll))))) + (lazy-cons (first coll) + (if (= 1 n) + nil + (take (dec n) (rest coll)))))) (defn take-while "Returns a lazy seq of successive items from coll while |