From 0a6c9e08a9b5437119fa8f10391c403519045632 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 11 May 2009 16:19:41 -0500 Subject: [PATCH] Fix stack underflow in Windows UI backend --- basis/ui/backend/windows/windows.factor | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor index 2cf4091937..afed121fb6 100755 --- a/basis/ui/backend/windows/windows.factor +++ b/basis/ui/backend/windows/windows.factor @@ -616,10 +616,8 @@ M: windows-ui-backend do-events GetDoubleClickTime milliseconds double-click-timeout set-global ; : cleanup-win32-ui ( -- ) - class-name-ptr [ - [ [ f UnregisterClass drop ] [ free ] bi ] when* f - ] change-global - msg-obj change-global [ [ free ] when* f ] ; + class-name-ptr [ [ [ f UnregisterClass drop ] [ free ] bi ] when* f ] change-global + msg-obj [ [ free ] when* f ] change-global ; : get-dc ( world -- ) handle>> dup hWnd>> GetDC dup win32-error=0/f >>hDC drop ;