From 6971eedee776d0014c94cbee519655e37707a8f7 Mon Sep 17 00:00:00 2001 From: Andrey Listopadov Date: Wed, 30 Aug 2023 19:33:12 +0300 Subject: rename the lazy-seq function to lazy-seq* to avoid name clash with a macro --- cljlib.fnl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'cljlib.fnl') diff --git a/cljlib.fnl b/cljlib.fnl index dd6c621..1981fad 100644 --- a/cljlib.fnl +++ b/cljlib.fnl @@ -3615,10 +3615,11 @@ Lua `#` operator on `rev` takes linar time. If `t` is empty returns [rev] (seq* (lazy.rseq rev))) -(defn lazy-seq +(defn lazy-seq* "Create lazy sequence from the result of calling a function `f`. Delays execution of `f` until sequence is consumed. `f` must return a -sequence or a vector." +sequence or a vector. There's a convenience macro `lazy-seq' +automates the process of function creation." [f] (seq* (lazy.lazy-seq f))) @@ -4535,7 +4536,7 @@ number-of-colls arguments" (if-some [s (seq coll)] (let [res (f nil (first s))] (cond (reduced? res) (f (deref res)) - (seq? res) (concat res (lazy-seq #(step (rest s)))) + (seq? res) (concat res (lazy-seq* #(step (rest s)))) :else (step (rest s)))) (f nil))) coll) @@ -4546,7 +4547,7 @@ number-of-colls arguments" (if (every? seq colls) (let [res (apply f nil (map first colls))] (cond (reduced? res) (f (deref res)) - (seq? res) (concat res (lazy-seq #(step (map rest colls)))) + (seq? res) (concat res (lazy-seq* #(step (map rest colls)))) :else (step (map rest colls)))) (f nil))) (cons coll colls)) -- cgit v1.2.3