This commit is contained in:
Michael S. Klishin 2011-11-05 08:31:46 +04:00
parent 05466c60b7
commit 20c271eee5

View file

@ -93,7 +93,7 @@
(defn- associate-pairs [pairs keywordize] (defn- associate-pairs [pairs keywordize]
;; Taking the keywordize test out of the fn reduces derefs ;; Taking the keywordize test out of the fn reduces derefs
;; dramatically, which was the main barrier to matching pure-Java ;; dramatically, which was the main barrier to matching pure-Java
;; performance for this marshalling. Take from congomongo. MK. ;; performance for this marshalling. Taken from congomongo. MK.
(reduce (if keywordize (reduce (if keywordize
(fn [m [^String k v]] (fn [m [^String k v]]
(assoc m (keyword k) (from-db-object v true))) (assoc m (keyword k) (from-db-object v true)))