Permalink
Browse files

Make make-dbg-repl-jframe actually work again

  • Loading branch information...
1 parent 215aaa8 commit 543b70a954e47defbbe60faf185cb470d562919f @ivan ivan committed Apr 25, 2012
Showing with 5 additions and 5 deletions.
  1. +5 −5 src/clj/org/dipert/swingrepl/main.clj
@@ -22,7 +22,7 @@
(set! *print-level* 15)
(set! *print-length* 103))
-(defn- make-repl-thread [console & repl-args]
+(defn make-repl-thread [console & repl-args]
(binding [*out* (.getOut console)
*in* (clojure.lang.LineNumberingPushbackReader. (.getIn console))
*err* (.getOut console)]
@@ -103,12 +103,12 @@
(.pack)
(.setSize (:width opts#) (:height opts#)))
(.requestFocus console#)
- (let [thread (make-repl-thread console
+ (let [thread# (make-repl-thread console#
:prompt #(print "dr => ")
:eval (partial eval-with-locals (local-bindings)))
- stopper (clojure.repl/thread-stopper thread)]
- (.setInterruptFunction console (fn [reason] (stopper reason)))
- (.start thread)
+ stopper# (clojure.repl/thread-stopper thread#)]
+ (.setInterruptFunction console# (fn [reason#] (stopper# reason#)))
+ (.start thread#)
(.setVisible jframe# true))))))

0 comments on commit 543b70a

Please sign in to comment.