luciano/mount
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace run! with dorun and map

Browse source 
This makes mount compatible with older Clojure versions again.
This commit is contained in:
Jan Stępień 2015-11-24 21:00:47 +01:00
parent e278ce9f39
commit 3179ed2233
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/mount/core.clj
View file

@ -119,7 +119,8 @@
(let [done (atom [])]
(->> states
(sort-by (comp :order meta) order)
(run! #(fun % (meta %) done)))
(map #(fun % (meta %) done))
dorun)
@done))
(defn- merge-lifecycles
@ -159,17 +160,17 @@
(defn stop [& states]
(let [states (or states (find-all-states))
_ (run! unsub states) ;; unmark substitutions marked by "start-with"
_ (dorun (map unsub states)) ;; unmark substitutions marked by "start-with"
stopped (bring states down >)]
(run! rollback! states) ;; restore to origin from "start-with"
(dorun (map rollback! states)) ;; restore to origin from "start-with"
{:stopped stopped}))
(defn stop-except [& states]
(let [all (set (find-all-states))
states (remove (set states) all)
_ (run! unsub states) ;; unmark substitutions marked by "start-with"
_ (dorun (map unsub states)) ;; unmark substitutions marked by "start-with"
stopped (bring states down >)]
(run! rollback! states) ;; restore to origin from "start-with"
(dorun (map rollback! states)) ;; restore to origin from "start-with"
{:stopped stopped}))
(defn start-with-args [xs & states]