fix more try-atomic problems

original commit: 78b2e47541bcbb591c7a18df9b9292e47e58923c
2010-12-21 18:45:36 -07:00 · 2010-12-21 18:45:36 -07:00 · 46b8678ec5
commit 46b8678ec5
parent 4dc7f21694
1 changed files with 2 additions and 1 deletions
--- a/collects/mred/private/wx/win32/frame.rkt
+++ b/collects/mred/private/wx/win32/frame.rkt
@ -210,7 +210,8 @@
     [(= msg WM_CLOSE)
      (queue-window-event this (lambda () 
 				 (when (on-close)
-				   (direct-show #f))))
+                                   (atomically
+                                    (direct-show #f)))))
      0]
     [(and (= msg WM_SIZE)
           (not (= wParam SIZE_MINIMIZED)))