Statically def transducer

Eliminates allocation and friendlier to JIT
metosin · Aug 25, 2024 · 61783e4 · 61783e4
1 parent 59642e5
commit 61783e4
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/modules/reitit-core/src/reitit/walk.clj b/modules/reitit-core/src/reitit/walk.clj
@@ -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