Change reduce to reduce-kv

This commit is contained in:
Alex Engelberg 2016-06-07 23:16:54 -07:00
parent bafe10036f
commit 2147584dca

View file

@ -86,6 +86,6 @@
(reduce (fn [m k]
(dissoc! m k))
% m-keys)
(reduce (fn [m [k v]]
(assoc! m k v))
% res)))))
(reduce-kv (fn [m k v]
(assoc! m k v))
% res)))))