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

fix queue-callback to default to high priority

Browse Source 
original commit: 73d28a3fff66aae7c948aaf5d6f7adee809d4fc2
This commit is contained in:
Matthew Flatt 2010-09-16 05:33:10 -06:00
parent e0f1ae3ed9
commit 0b412d18d5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -408,7 +408,7 @@
(define (main-eventspace? e) (define (main-eventspace? e)
(eq? e main-eventspace)) (eq? e main-eventspace))
(define (queue-callback thunk [high? #f]) (define (queue-callback thunk [high? #t])
(queue-event (current-eventspace) thunk (cond (queue-event (current-eventspace) thunk (cond
[(not high?) 'lo] [(not high?) 'lo]
[(eq? high? middle-queue-key) 'med] [(eq? high? middle-queue-key) 'med]