Change reduce to reduce-kv
This commit is contained in:
parent
bafe10036f
commit
2147584dca
1 changed files with 3 additions and 3 deletions
|
|
@ -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)))))
|
||||
|
|
|
|||
Loading…
Reference in a new issue