From 64042919d1e1eb0e5108f5c48f4f691444339ab8 Mon Sep 17 00:00:00 2001
From: anatoly <tolitius@gmail.com>
Date: Sun, 25 Oct 2015 22:27:09 -0400
Subject: [PATCH] start/stop return :started/:stopped

---
 dev/dev.clj         |  6 ++----
 src/mount/mount.clj | 11 ++++++-----
 2 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/dev/dev.clj b/dev/dev.clj
index 85497ff..48cdfb6 100644
--- a/dev/dev.clj
+++ b/dev/dev.clj
@@ -17,12 +17,10 @@
             [app :refer [create-nyse-schema find-orders add-order]]))  ;; <<<< replace this your "app" namespace(s) you want to be available at REPL time
 
 (defn start []
-  (mount/start)
-  :started)
+  (mount/start))
 
 (defn stop []
-  (mount/stop)
-  :stopped)
+  (mount/stop))
 
 (defn refresh []
   (stop)
diff --git a/src/mount/mount.clj b/src/mount/mount.clj
index a7348d4..59907ee 100644
--- a/src/mount/mount.clj
+++ b/src/mount/mount.clj
@@ -73,14 +73,15 @@
 (defn- bring [states fun order]
   (->> states
        (sort-by (comp :order meta) order)
-       (map #(fun % (meta %)))))
+       (map #(fun % (meta %)))
+       doall))
 
 (defn start [& states]
   (let [states (or states (find-all-states))]
-    (doall 
-      (bring states up <))))
+    (bring states up <)
+    :started))
 
 (defn stop [& states]
   (let [states (or states (find-all-states))]
-    (doall 
-      (bring states down >))))
+    (bring states down >)
+    :stopped))