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

state: def => defonce

Browse source
This commit is contained in:
anatoly 2015-12-29 14:09:22 -05:00
parent 7495a9bdeb
commit fb12c30245
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/mount/core.cljc
View file

@ -146,7 +146,7 @@
suspend (assoc :suspend `(fn [] ~suspend)) suspend (assoc :suspend `(fn [] ~suspend))
resume (assoc :resume `(fn [] ~resume)))] resume (assoc :resume `(fn [] ~resume)))]
`(do `(do
(def ~state (DerefableState. ~state-name)) (defonce ~state (DerefableState. ~state-name))
(let [meta# (assoc ~s-meta :inst (atom (NotStartedState. ~state-name)) (let [meta# (assoc ~s-meta :inst (atom (NotStartedState. ~state-name))
:var (var ~state))] :var (var ~state))]
((var mount.core/update-meta!) [~state-name] meta#) ((var mount.core/update-meta!) [~state-name] meta#)