steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

windows.errors: fix bootstrap

db4
Doug Coleman 2015-08-13 23:07:32 -07:00
parent 02b8a051f0
commit 5ba44b37bc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/windows/errors/errors.factor
View File

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