demonstrating where to place thread/interupted

CLJS-REPLThreadIterrupt.patch

From: Bruce Hauman <bhauman@gmail.com>
Date: Fri, 10 Feb 2017 11:26:46 -0500
Subject: [PATCH] CLJS-ThreadIterrupt: Check for thread interuptions for
 cleaner shutdown in some cases

---
 src/main/clojure/cljs/repl.cljc | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/main/clojure/cljs/repl.cljc b/src/main/clojure/cljs/repl.cljc
index a223812..fc2a3f8 100644
--- a/src/main/clojure/cljs/repl.cljc
+++ b/src/main/clojure/cljs/repl.cljc
@@ -892,11 +892,13 @@
                  (flush)
                  (loop []
                    (when-not
-                     (try
-                       (identical? (read-eval-print) request-exit)
-                       (catch Throwable e
-                         (caught e repl-env opts)
-                         nil))
+                       (or
+                        (Thread/interrupted)
+                        (try
+                          (identical? (read-eval-print) request-exit)
+                          (catch Throwable e
+                            (caught e repl-env opts)
+                            nil)))
                      (when (need-prompt)
                        (prompt)
                        (flush))
--
2.6.4 (Apple Git-63)