Small refactor of keyword-params

mmcgrana · 5038dc228e4d5eb81809f5f82a33b1b8674ac79e · weavejester committed Sep 25, 2010 · Sep 25, 2010 · 5038dc2
1 parent 621874f
commit 5038dc228e4d5eb81809f5f82a33b1b8674ac79e
Unified Split

Showing with 3 additions and 5 deletions.

+3 −5 ring-core/src/ring/middleware/keyword_params.clj
@@ -4,11 +4,9 @@
 (defn- keyify-params [target]
   (cond
     (map? target)
-      (reduce
-        (fn [m [k v]]
-          (assoc m (keyword k) (keyify-params v)))
-        {}
-        target)
+      (into {}
+        (for [[k v] target]
+          [(keyword k) (keyify-params v)]))
     (vector? target)
       (vec (map keyify-params target))
     :else