Explicitly exit in trampolined repl.

Fixes #1565.
This commit is contained in:
Phil Hagelberg 2014-06-16 13:13:33 -07:00
parent 5cdfdd94a6
commit dc1d5ed68f

View file

@ -174,8 +174,8 @@
trampoline-profile)] trampoline-profile)]
(eval/eval-in-project (eval/eval-in-project
(project/merge-profiles project [profile]) (project/merge-profiles project [profile])
`(do (reply.main/launch '~options) nil) `(do (reply.main/launch '~options) (System/exit 0))
`(do (try (require '~(init-ns project)) (catch Throwable t#)) `(do (try (require '~(init-ns project)) (catch Exception t#))
(require ~@(init-requires project 'reply.main)))))) (require ~@(init-requires project 'reply.main))))))
(def ack-server (def ack-server