Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / extra / fullscreen / fullscreen.factor

diff --git a/extra/fullscreen/fullscreen.factor b/extra/fullscreen/fullscreen.factor
index 458ef3d51e2de1df1ae41dd20543cdec247cde24..56c14265542f18e1a3349a10a3babe5e956d19eb 100755 (executable)
--- a/extra/fullscreen/fullscreen.factor
+++ b/extra/fullscreen/fullscreen.factor
@@ -131,11 +131,11 @@ ERROR: unsupported-resolution triple ;
         triple
         world handle>> hWnd>>
         fullscreen? [
-            enable-fullscreen world (>>saved-position)
+            enable-fullscreen world saved-position<<
         ] [
             [ world saved-position>> ] 2dip disable-fullscreen
         ] if
-        fullscreen? world (>>fullscreen?)
+        fullscreen? world fullscreen?<<
     ] when ;
 
 : set-fullscreen ( gadget triple fullscreen? -- )