running-states to return a set

This commit is contained in:
anatoly 2016-11-21 12:26:26 -05:00
parent f49fceb518
commit 087683968d

View file

@ -182,7 +182,7 @@
v)))
(defn running-states []
(keys @running))
(set (keys @running)))
(defn- unvar-state [s]
(->> s (drop 2) (apply str))) ;; magic 2 is removing "#'" in state name