]> gitweb.factorcode.org Git - factor.git/commitdiff
windows.errors: fix bootstrap
authorDoug Coleman <doug.coleman@gmail.com>
Fri, 14 Aug 2015 06:07:32 +0000 (23:07 -0700)
committerDoug Coleman <doug.coleman@gmail.com>
Fri, 14 Aug 2015 06:07:32 +0000 (23:07 -0700)
basis/windows/errors/errors.factor

index 43b0052b18b3329b7e2a73b177b7968231060704..fca62c85bef4dc366277822144dc0fece5facb15 100755 (executable)
@@ -723,7 +723,7 @@ CONSTANT: FORMAT_MESSAGE_MAX_WIDTH_MASK   0x000000FF
 ERROR: windows-error n string ;
 
 : (win32-error) ( n -- )
-    [ dup win32-error-string throw-windows-error ] unless-zero ;
+    [ dup win32-error-string windows-error ] unless-zero ;
 
 : win32-error ( -- )
     GetLastError (win32-error) ;
@@ -737,7 +737,7 @@ ERROR: windows-error n string ;
     dup ERROR_SUCCESS = [
         drop
     ] [
-        dup n>win32-error-string throw-windows-error
+        dup n>win32-error-string windows-error
     ] if ;
 
 : throw-win32-error ( -- * )