eagerly evaluate ALL

This commit is contained in:
Nathan Marz 2015-03-01 23:34:20 -05:00
parent 857cd04711
commit a6b8546a17

View file

@ -145,7 +145,7 @@
(let [empty-structure (empty structure)
pfn (partial next-fn vals)]
(if (list? empty-structure)
(map pfn structure)
(doall (map pfn structure))
(->> structure (r/map pfn) (into empty-structure))
))))