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?*
|
||||
(do (shutdown-agents)
|
||||
(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)))
|
||||
|
||||
(defn abort
|
||||
|
|
Loading…
Reference in a new issue