diff options
| -rw-r--r-- | src/clj/clojure/core.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 2abed3dd..11800ead 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -2273,7 +2273,7 @@ (let [merge-entry (fn [m e] (let [k (key e) v (val e)] (if (contains? m k) - (assoc m k (f (m k) v)) + (assoc m k (f (get m k) v)) (assoc m k v)))) merge2 (fn [m1 m2] (reduce merge-entry (or m1 {}) (seq m2)))] |