suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

macro-stepper: fixed deadlock (recursive yield)

Browse Source
This commit is contained in:
Ryan Culpepper 2010-11-08 19:28:26 -07:00
parent 1fe73ffaef
commit 82d6deebad
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/macro-debugger/view/gui-util.rkt
View File

@ -14,7 +14,7 @@
(define lock (make-semaphore 1)) (define lock (make-semaphore 1))
(define-syntax-rule (with-lock . body) (define-syntax-rule (with-lock . body)
(dynamic-wind (lambda () (semaphore-wait lock)) (dynamic-wind (lambda () (yield lock))
(lambda () . body) (lambda () . body)
(lambda () (semaphore-post lock)))) (lambda () (semaphore-post lock))))
@ -71,7 +71,6 @@
(send message set-label msg) (send message set-label msg)
(send message enable #t) (send message enable #t)
(show #t) (show #t)
(sleep/yield NAP-TIME)
(set! state 'shown)) (set! state 'shown))
((shown) ((shown)
(send message set-label msg)) (send message set-label msg))