From dc1d5ed68fa74b3440783a69eb10cc5b444df772 Mon Sep 17 00:00:00 2001
From: Phil Hagelberg <technomancy@gmail.com>
Date: Mon, 16 Jun 2014 13:13:33 -0700
Subject: [PATCH] Explicitly exit in trampolined repl.

Fixes #1565.
---
 src/leiningen/repl.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/leiningen/repl.clj b/src/leiningen/repl.clj
index dead9a16..09a81724 100644
--- a/src/leiningen/repl.clj
+++ b/src/leiningen/repl.clj
@@ -174,8 +174,8 @@
                                             trampoline-profile)]
     (eval/eval-in-project
      (project/merge-profiles project [profile])
-     `(do (reply.main/launch '~options) nil)
-     `(do (try (require '~(init-ns project)) (catch Throwable t#))
+     `(do (reply.main/launch '~options) (System/exit 0))
+     `(do (try (require '~(init-ns project)) (catch Exception t#))
           (require ~@(init-requires project 'reply.main))))))
 
 (def ack-server