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

Merge fc62681570 into 4d961b56c0

Browse source
This commit is contained in:
Matt Russell 2017-05-25 15:49:33 +00:00 committed by GitHub
commit 54d4678c60
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/mount/core.cljc
View file

@ -163,7 +163,7 @@
(defmacro defstate [state & body] (defmacro defstate [state & body]
(let [[state params] (macro/name-with-attributes state body) (let [[state params] (macro/name-with-attributes state body)
{:keys [start stop] :as lifecycle} (apply hash-map params) {:keys [start stop] :as lifecycle} (apply hash-map params)
state-name (with-ns *ns* state) state-name `(with-ns ~*ns* state)
order (make-state-seq state-name)] order (make-state-seq state-name)]
(validate lifecycle) (validate lifecycle)
(let [s-meta (cond-> {:order order (let [s-meta (cond-> {:order order
@ -182,7 +182,7 @@
#?(:clj #?(:clj
(defmacro defstate! [state & {:keys [start! stop!]}] (defmacro defstate! [state & {:keys [start! stop!]}]
(let [state-name (with-ns *ns* state)] (let [state-name `(with-ns ~*ns* state)]
`(defstate ~state `(defstate ~state
:start (~'let [~state (mount/current-state ~state-name)] :start (~'let [~state (mount/current-state ~state-name)]
~start!) ~start!)