diff options
| -rw-r--r-- | src/boot.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot.clj b/src/boot.clj index c6d7f1ac..6c6f4f39 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -578,7 +578,7 @@ (let [merge-entry (fn [m e] (let [k (key e) v (val e)] (if (contains m k) - (assoc m k (f v (m k))) + (assoc m k (f (m k) v)) (assoc m k v)))) merge2 (fn [m1 m2] (reduce merge-entry m1 (seq m2)))] |