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))