www

commit 627029e45add3ee9ee639e1bccd018640d169cc0
parent 6f34459ca03875aa484ad0e76c16e3eaed972cbd
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Mon,  8 Nov 2010 19:28:26 -0700

macro-stepper: fixed deadlock (recursive yield)

original commit: 82d6deebade92e4585dd1de0208685c56f9623ea

Diffstat:
M
collects/macro-debugger/view/gui-util.rkt
 | 
3
+--

1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/collects/macro-debugger/view/gui-util.rkt b/collects/macro-debugger/view/gui-util.rkt
@@ -14,7 +14,7 @@
     (define lock (make-semaphore 1))
 
     (define-syntax-rule (with-lock . body)
-      (dynamic-wind (lambda () (semaphore-wait lock))
+      (dynamic-wind (lambda () (yield lock))
                     (lambda () . body)
                     (lambda () (semaphore-post lock))))
 
@@ -71,7 +71,6 @@
                  (send message set-label msg)
                  (send message enable #t)
                  (show #t)
-                 (sleep/yield NAP-TIME)
                  (set! state 'shown))
                 ((shown)
                  (send message set-label msg))