racket/gui win32: atomicity repair

2012-08-29 17:45:23 -06:00 · 2012-08-29 17:45:23 -06:00 · 7291e1a24d
commit 7291e1a24d
parent 977fd37913
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/wx/win32/queue.rkt
+++ b/collects/mred/private/wx/win32/queue.rkt
@ -154,6 +154,6 @@
                                          (wrap-evt (system-idle-evt)
                                                    (lambda (v) #f))
                                          boundary-tasks-ready-evt)))
-                (pre-event-sync #t))
+                (atomically (pre-event-sync #t)))
              (as-entry dispatch-all-ready)
              (loop)))))