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

Merge pull request #17 from jstepien/dont-retain-head

Browse source 
don't retain heads in side-effectful iterations
This commit is contained in:
Anatoly 2015-11-24 16:32:27 -05:00
commit bf14f125d2
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/mount/core.clj
View file

@ -120,7 +120,7 @@
(->> states
(sort-by (comp :order meta) order)
(map #(fun % (meta %) done))
doall)
dorun)
@done))
(defn- merge-lifecycles
@ -160,17 +160,17 @@
(defn stop [& states]
(let [states (or states (find-all-states))
_ (doall (map unsub states)) ;; unmark substitutions marked by "start-with"
_ (dorun (map unsub states)) ;; unmark substitutions marked by "start-with"
stopped (bring states down >)]
(doall (map 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)
_ (doall (map unsub states)) ;; unmark substitutions marked by "start-with"
_ (dorun (map unsub states)) ;; unmark substitutions marked by "start-with"
stopped (bring states down >)]
(doall (map 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]
@ -180,9 +180,8 @@
(start)))
(defn start-with [with]
(doall
(for [[from to] with]
(substitute! from to)))
(doseq [[from to] with]
(substitute! from to))
(start))
(defn start-without [& states]