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

windows.errors: fix bootstrap

modern-harvey3
Doug Coleman 2020-01-30 12:55:34 +01:00
parent 1268a9e1c6
commit e2baa121f4
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

@ -734,7 +734,7 @@ ERROR: windows-error n string ;
: win32-error<>0 ( n -- ) zero? [ win32-error ] unless ; : win32-error<>0 ( n -- ) zero? [ win32-error ] unless ;
: check-invalid-handle ( handle -- handle ) : check-invalid-handle ( handle -- handle )
dup INVALID_HANDLE_VALUE = [ throw-win32-error ] when ; dup INVALID_HANDLE_VALUE = [ win32-error ] when ;
CONSTANT: expected-io-errors CONSTANT: expected-io-errors
${ ${
@ -751,7 +751,7 @@ CONSTANT: expected-io-errors
dup expected-io-error? [ dup expected-io-error? [
drop drop
] [ ] [
throw-win32-error win32-error
] if ; ] if ;
: io-error ( return-value -- ) : io-error ( return-value -- )