running-states to return a set
This commit is contained in:
parent
f49fceb518
commit
087683968d
1 changed files with 1 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue