From 46b8678ec5294f27e19c6260fc460ad2ec6d9ba4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 21 Dec 2010 18:45:36 -0700 Subject: [PATCH] fix more try-atomic problems original commit: 78b2e47541bcbb591c7a18df9b9292e47e58923c --- collects/mred/private/wx/win32/frame.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/wx/win32/frame.rkt b/collects/mred/private/wx/win32/frame.rkt index 5ebf30e6..c6c0a529 100644 --- 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)))