[#15]: preserving order of state changes

This commit is contained in:
anatoly 2015-11-23 12:20:51 -05:00
parent 432496863e
commit 19ec27eb9b

View file

@ -116,7 +116,7 @@
(sort-by :order))))
(defn- bring [states fun order]
(let [done (atom #{})]
(let [done (atom [])]
(->> states
(sort-by (comp :order meta) order)
(map #(fun % (meta %) done))