From 69cd66ab8cff05750b1d5515730ff9bc07690e48 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 15 Dec 2021 03:58:26 -0600
Subject: [PATCH] ui.backend.windows: Add a couple more error checks.

---
 basis/ui/backend/windows/windows.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index defb6cfd15..d8a32647c5 100644
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@@ -492,7 +492,7 @@ SYMBOL: nc-buttons
     over make-TRACKMOUSEEVENT
         TME_LEAVE >>dwFlags
         0 >>dwHoverTime
-    TrackMouseEvent drop
+    TrackMouseEvent win32-error=0/f
     >lo-hi swap window move-hand fire-motion ;
 
 :: handle-wm-mousewheel ( hWnd uMsg wParam lParam -- )
@@ -705,7 +705,7 @@ M: windows-ui-backend (open-window)
 ! ignore timeout (error 258)
 M: win-base select-gl-context
     [ hDC>> ] [ hRC>> ] bi wglMakeCurrent win32-error=0/f-ignore-timeout
-    GdiFlush drop ;
+    GdiFlush win32-error=0/f ;
 
 M: win-base flush-gl-context
     hDC>> SwapBuffers win32-error=0/f ;
-- 
2.34.1