change ERROR: words from throw-foo back to foo.

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

diff --git a/extra/fullscreen/fullscreen.factor b/extra/fullscreen/fullscreen.factor
index fe4535957bc069f68daa8477fd6ce9f845013ebb..7b30d25f0e6861d193a13c06cecd3ca846b8fd4e 100755 (executable)
--- a/extra/fullscreen/fullscreen.factor
+++ b/extra/fullscreen/fullscreen.factor
@@ -55,12 +55,12 @@ ERROR: display-change-error n ;
 : fullscreen-mode ( monitor-info devmode -- )
     [ szDevice>> ] dip f CDS_FULLSCREEN f
     ChangeDisplaySettingsEx dup DISP_CHANGE_SUCCESSFUL =
-    [ drop ] [ throw-display-change-error ] if ;
+    [ drop ] [ display-change-error ] if ;
 
 : non-fullscreen-mode ( monitor-info devmode -- )
     [ szDevice>> ] dip f 0 f
     ChangeDisplaySettingsEx dup DISP_CHANGE_SUCCESSFUL =
-    [ drop ] [ throw-display-change-error ] if ;
+    [ drop ] [ display-change-error ] if ;
 
 : get-style ( hwnd n -- style )
     GetWindowLongPtr [ win32-error=0/f ] keep ;
@@ -86,7 +86,7 @@ ERROR: unsupported-resolution triple ;
     [
         slots{ dmPelsWidth dmPelsHeight dmBitsPerPel }
         triple =
-    ] find nip [ triple throw-unsupported-resolution ] unless* ;
+    ] find nip [ triple unsupported-resolution ] unless* ;
 
 :: set-fullscreen-window-position ( hwnd triple -- )
     hwnd f