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 [])] (let [done (atom [])]
(->> states (->> states
(sort-by (comp :order meta) order) (sort-by (comp :order meta) order)
(run! #(fun % (meta %) done))) (map #(fun % (meta %) done))
dorun)
@done)) @done))
(defn- merge-lifecycles (defn- merge-lifecycles
@ -159,17 +160,17 @@
(defn stop [& states] (defn stop [& states]
(let [states (or states (find-all-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 >)] 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})) {:stopped stopped}))
(defn stop-except [& states] (defn stop-except [& states]
(let [all (set (find-all-states)) (let [all (set (find-all-states))
states (remove (set states) all) 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 >)] 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})) {:stopped stopped}))
(defn start-with-args [xs & states] (defn start-with-args [xs & states]