fix queue-callback to default to high priority

2010-09-16 05:33:10 -06:00 · 2010-09-16 05:33:10 -06:00 · 73d28a3fff
commit 73d28a3fff
parent 4d03f3ab3c
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/wx/common/queue.rkt
+++ b/collects/mred/private/wx/common/queue.rkt
@ -408,7 +408,7 @@
 (define (main-eventspace? e)
  (eq? e main-eventspace))

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