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