From 5ba44b37bc82bfdea706c16f33b3bbc13b9ca87c Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 13 Aug 2015 23:07:32 -0700 Subject: [PATCH] windows.errors: fix bootstrap --- basis/windows/errors/errors.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 ( -- * ) -- 2.34.1