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

uberjar example: removing trampoline

Browse source
This commit is contained in:
anatoly 2015-11-30 21:51:22 -05:00
parent 7624b9c7d5
commit 0ccdffc691
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.clj
View file

@ -66,7 +66,7 @@
(NotStartedState. ~(str state)))))) (NotStartedState. ~(str state))))))
(defn- record! [{:keys [ns name]} f done] (defn- record! [{:keys [ns name]} f done]
(let [state (trampoline f)] (let [state (f)]
(swap! done conj (ns-resolve ns name)) (swap! done conj (ns-resolve ns name))
state)) state))