From 49591d436855c55cfc2dc1ede5416a09280dc52a Mon Sep 17 00:00:00 2001 From: anatoly Date: Mon, 28 Nov 2016 11:43:57 -0500 Subject: [PATCH] #69: fixing comments "start" => "stop" --- src/mount/core.cljc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/mount/core.cljc b/src/mount/core.cljc index 0545103..468beee 100644 --- a/src/mount/core.cljc +++ b/src/mount/core.cljc @@ -254,14 +254,14 @@ (defn stop [& states] (let [fs (-> states first)] (if (coll? fs) - (if-not (empty? fs) ;; (mount/start) vs. (mount/start #{}) vs. (mount/start #{1 2 3}) + (if-not (empty? fs) ;; (mount/stop) vs. (mount/stop #{}) vs. (mount/stop #{1 2 3}) (apply stop fs) {:stopped #{}}) (let [states (or (seq states) (find-all-states)) - _ (dorun (map unsub states)) ;; unmark substitutions marked by "start-with" + _ (dorun (map unsub states)) ;; unmark substitutions marked by "start-with" / "swap-states" stopped (bring states down >)] - (dorun (map rollback! states)) ;; restore to origin from "start-with" + (dorun (map rollback! states)) ;; restore to origin from "start-with" / "swap-states" {:stopped stopped})))) ;; composable set of states