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

fix eventspace as event

Browse Source
This commit is contained in:
Matthew Flatt 2010-11-28 19:57:38 -07:00
parent 64979a5480
commit c81ad90161
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/private/wx/common/queue.rkt
View File

@ -196,6 +196,7 @@
(define (make-eventspace* th)
(let ([done-sema (make-semaphore 1)]
[done-set? #t]
[frames (make-hasheq)])
(let ([e
(make-eventspace th
@ -212,8 +213,12 @@
(if (or (positive? count)
(positive? (hash-count frames))
(not (null? (unbox timer))))
(semaphore-try-wait? done-sema)
(semaphore-post done-sema)))]
(when done-set?
(set! done-set? #f)
(semaphore-try-wait? done-sema))
(unless done-set?
(set! done-set? #t)
(semaphore-post done-sema))))]
[enqueue (lambda (v q)
(set! count (add1 count))
(check-done)