Statically def transducer

Eliminates allocation and friendlier to JIT
This commit is contained in:
Ben Sless 2024-08-25 18:56:30 +03:00
parent 59642e51f1
commit 61783e4c81

View file

@ -11,9 +11,11 @@
[m]
(persistent! (reduce-kv keywordize-kv (transient (empty m)) m)))
(def ^:private keywordize-xf (map -keywordize))
(defn- -keywordize-default
[coll]
(into (empty coll) (map -keywordize) coll))
(into (empty coll) keywordize-xf coll))
(doseq [type [clojure.lang.PersistentHashSet
clojure.lang.PersistentVector