reduce-kv

This commit is contained in:
Tommi Reiman 2024-06-30 17:55:23 +03:00
parent 72dadb3c76
commit ee67a746d4

View file

@ -23,8 +23,8 @@
(defn -path-vals [m path-map]
(letfn [(-path-vals [l p m]
(reduce
(fn [l [k v]]
(reduce-kv
(fn [l k v]
(let [p' (conj p k)
f (-match p' path-map)]
(cond