From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 14 Aug 2015 06:07:32 +0000 (-0700)
Subject: windows.errors: fix bootstrap
X-Git-Tag: unmaintained~2078
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=5ba44b37bc82bfdea706c16f33b3bbc13b9ca87c

windows.errors: fix bootstrap
---

diff --git a/basis/windows/errors/errors.factor b/basis/windows/errors/errors.factor
index 43b0052b18..fca62c85be 100755
--- 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 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 ( -- * )