From d0d63436f12468634eb4806b0a5044968db4807a Mon Sep 17 00:00:00 2001 From: "amano.kenji" Date: Mon, 21 Apr 2025 10:43:35 +0000 Subject: [PATCH] Replace `every? some?` with `every? identity` identity should be faster than some? --- src/basilisp/core.lpy | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/basilisp/core.lpy b/src/basilisp/core.lpy index 1c57cbbd..e119da98 100644 --- a/src/basilisp/core.lpy +++ b/src/basilisp/core.lpy @@ -2764,7 +2764,7 @@ (lazy-seq (when-let [coll (seq coll)] (let [colls (map seq colls)] - (when (every? some? colls) + (when (every? identity colls) (cons (apply f (first coll) (map first colls)) (apply map f (rest coll) (map rest colls))))))))) @@ -3055,7 +3055,7 @@ (lazy-seq (when-let [coll (seq coll)] (let [colls (map seq colls)] - (when (every? some? colls) + (when (every? identity colls) (concat (apply coll-firsts coll colls) (apply interleave (rest coll) (map rest colls))))))))))