diff options
| author | Chouser <chouser@n01se.net> | 2009-04-15 15:06:26 +0000 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-04-15 15:06:26 +0000 |
| commit | e7ee840f2df7b51a1f4eb8d9002f67fd6211a4d8 (patch) | |
| tree | 4ca73e1b81e44f38d767df36c3b991550f4c3129 | |
| parent | 316da2b05b387b751a13772681fe22d4b1dfbe45 (diff) | |
repl-utils: start-handling-break cleared break-threads every time it was called. Fixed.
| -rw-r--r-- | src/clojure/contrib/repl_utils.clj | 6 |
1 files 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] [] |