From e7ee840f2df7b51a1f4eb8d9002f67fd6211a4d8 Mon Sep 17 00:00:00 2001
From: Chouser <chouser@n01se.net>
Date: Wed, 15 Apr 2009 15:06:26 +0000
Subject: repl-utils: start-handling-break cleared break-threads every time it
 was called. Fixed.

---
 src/clojure/contrib/repl_utils.clj | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/clojure/contrib/repl_utils.clj b/src/clojure/contrib/repl_utils.clj
index a5ab9c41..14e14c70 100644
--- a/src/clojure/contrib/repl_utils.clj
+++ b/src/clojure/contrib/repl_utils.clj
@@ -125,9 +125,9 @@
   []
   (when-not
     (dosync
-      (let [inited @break-threads]
-        (ref-set break-threads {})
-        inited))
+      (if-let [inited @break-threads]
+        inited
+        (ref-set break-threads {})))
     (sun.misc.Signal/handle
       (sun.misc.Signal. "INT")
       (proxy [sun.misc.SignalHandler] []
-- 
cgit v1.2.3-18-g5258