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

windows.errors: fix merge

modern-harvey4
Doug Coleman 2020-03-25 19:13:07 -05:00
parent 94a1a8a2af
commit 2321fe8c9a
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -748,11 +748,7 @@ CONSTANT: expected-io-errors
expected-io-errors member? ; expected-io-errors member? ;
: expected-io-error ( error-code -- ) : expected-io-error ( error-code -- )
dup expected-io-error? [ expected-io-error? [ win32-error ] unless ;
drop
] [
win32-error
] if ;
: io-error ( return-value -- ) : io-error ( return-value -- )
{ 0 f } member? [ GetLastError expected-io-error ] when ; { 0 f } member? [ GetLastError expected-io-error ] when ;