fix windows

diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index 88e1e39fd87dc4b6b36a6101044a129324dcccff..0e07ff6611cac616fc2ac496c01e325db5f690ff 100755 (executable)
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@@ -537,14 +537,13 @@ SYMBOL: nc-buttons
     COLOR_BTNFACE GetSysColor RGB>color ;
 
 : ?make-glass ( world hwnd -- )
-    over {
-        [ composition-enabled? ]
-        [ window-controls>> textured-background swap memq? ]
-    } 1&&
-    [
-        full-window-margins DwmExtendFrameIntoClientArea drop
-        T{ rgba f 0.0 0.0 0.0 0.0 }
-    ] [ system-background-color ] if >>background-color ;
+    over window-controls>> textured-background swap memq? [
+        composition-enabled? [
+            full-window-margins DwmExtendFrameIntoClientArea drop
+            T{ rgba f 0.0 0.0 0.0 0.0 }
+        ] [ drop system-background-color ] if >>background-color
+        drop
+    ] [ 2drop ] if ;
 
 : handle-wm-dwmcompositionchanged ( hWnd uMsg wParam lParam -- )
     3drop [ window ] keep ?make-glass ;