basis: ERROR: changes.

[factor.git] / basis / windows / errors / errors.factor

diff --git a/basis/windows/errors/errors.factor b/basis/windows/errors/errors.factor
index fca62c85bef4dc366277822144dc0fece5facb15..43b0052b18b3329b7e2a73b177b7968231060704 100755 (executable)
--- a/basis/windows/errors/errors.factor
+++ b/basis/windows/errors/errors.factor
@@ -723,7 +723,7 @@ CONSTANT: FORMAT_MESSAGE_MAX_WIDTH_MASK   0x000000FF
 ERROR: windows-error n string ;
 
 : (win32-error) ( n -- )
-    [ dup win32-error-string windows-error ] unless-zero ;
+    [ dup win32-error-string throw-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 windows-error
+        dup n>win32-error-string throw-windows-error
     ] if ;
 
 : throw-win32-error ( -- * )