fix MAP-VALS

This commit is contained in:
Nathan Marz 2016-06-07 10:51:08 -04:00
parent 81ec559e69
commit 205b6a1319

View file

@ -169,9 +169,7 @@
MAP-VALS
[]
(select* [this structure next-fn]
(doseqres NONE [v (vals structure)]
(next-fn v)
))
(doall (mapcat next-fn (vals structure))))
(transform* [this structure next-fn]
(i/map-vals-transform structure next-fn)
))