fix MAP-VALS
This commit is contained in:
parent
81ec559e69
commit
205b6a1319
1 changed files with 1 additions and 3 deletions
|
|
@ -169,9 +169,7 @@
|
||||||
MAP-VALS
|
MAP-VALS
|
||||||
[]
|
[]
|
||||||
(select* [this structure next-fn]
|
(select* [this structure next-fn]
|
||||||
(doseqres NONE [v (vals structure)]
|
(doall (mapcat next-fn (vals structure))))
|
||||||
(next-fn v)
|
|
||||||
))
|
|
||||||
(transform* [this structure next-fn]
|
(transform* [this structure next-fn]
|
||||||
(i/map-vals-transform structure next-fn)
|
(i/map-vals-transform structure next-fn)
|
||||||
))
|
))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue