Don't show the "Suppressed exit" message when exit is called
This commit is contained in:
parent
6395e6eb4d
commit
4f24b89e3b
1 changed files with 1 additions and 1 deletions
|
@ -112,7 +112,7 @@
|
||||||
(if *exit-process?*
|
(if *exit-process?*
|
||||||
(do (shutdown-agents)
|
(do (shutdown-agents)
|
||||||
(System/exit exit-code))
|
(System/exit exit-code))
|
||||||
(throw (ex-info "Suppressed exit" {:exit-code exit-code}))))
|
(throw (ex-info "Suppressed exit" {:exit-code exit-code :suppress-msg true}))))
|
||||||
([] (exit 0)))
|
([] (exit 0)))
|
||||||
|
|
||||||
(defn abort
|
(defn abort
|
||||||
|
|
Loading…
Reference in a new issue