Using "same?" in more places.

[factor.git] / basis / ui / backend / windows / windows.factor

diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index c3ff0b50f22e13bcdaebc761e9ccb58a98d771b5..e39d421b0c61ce0defb994fc6630f992420bfa5d 100755 (executable)
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@@ -859,7 +859,7 @@ M: windows-ui-backend (set-fullscreen) ( ? world -- )
 M: windows-ui-backend (fullscreen?) ( world -- ? )
     handle>> hWnd>>
     [ hwnd>RECT ] [ fullscreen-RECT ] bi
-    [ get-RECT-dimensions 2array 2nip ] bi@ = ;
+    [ get-RECT-dimensions 2array 2nip ] same? ;
 
 M: windows-ui-backend ui-backend-available?
     t ;