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

hiding "update-meta!" and, and calling it via var (thx @DomKM)

Browse source
This commit is contained in:
anatoly 2015-12-06 00:23:37 -05:00
parent b07b29f028
commit 57b63ddcaa
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/mount/core.clj
View file

@ -59,9 +59,7 @@
(reset! inst value) (reset! inst value)
(alter-var-root var (constantly value)))) (alter-var-root var (constantly value))))
;; (!) TODO: this should be private (needs thinking) (defn- update-meta! [path v]
;; it is public now, can be called by "defstate" on macro expansion
(defn update-meta! [path v]
(swap! meta-state assoc-in path v)) (swap! meta-state assoc-in path v))
(defn- record! [state-name f done] (defn- record! [state-name f done]
@ -134,7 +132,7 @@
resume (assoc :resume `(fn [] ~resume)))] resume (assoc :resume `(fn [] ~resume)))]
`(do `(do
(def ~state (DerefableState. ~state-name)) (def ~state (DerefableState. ~state-name))
(update-meta! [~state-name] (assoc ~s-meta :inst (atom (NotStartedState. ~state-name)) ((var update-meta!) [~state-name] (assoc ~s-meta :inst (atom (NotStartedState. ~state-name))
:var (var ~state))) :var (var ~state)))
(var ~state))))) (var ~state)))))