fix queue-callback to default to high priority

original commit: 73d28a3fff66aae7c948aaf5d6f7adee809d4fc2
2010-09-16 05:33:10 -06:00 · 2010-09-16 05:33:10 -06:00 · 0b412d18d5
commit 0b412d18d5
parent e0f1ae3ed9
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]