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

windows.errors: fix a compilation error

master
Alexander Iljin 2016-06-29 01:55:15 +03:00 committed by John Benediktsson
parent 049356574a
commit c77cc4c205
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -730,7 +730,7 @@ ERROR: windows-error n string ;
: win32-error=0/f ( n -- ) { 0 f } member? [ win32-error ] when ; : win32-error=0/f ( n -- ) { 0 f } member? [ win32-error ] when ;
: win32-error>0 ( n -- ) 0 > [ win32-error ] when ; : win32-error>0 ( n -- ) 0 > [ win32-error ] when ;
: win32-error<0 ( n -- ) 0 < [ win32-error ] when ; : win32-error<0 ( n -- ) 0 < [ win32-error ] when ;
: win32-error<>0 ( n -- ) [ win32-error ] unless-zero ; : win32-error<>0 ( n -- ) zero? [ win32-error ] unless ;
: check-invalid-handle ( handle -- handle ) : check-invalid-handle ( handle -- handle )
dup INVALID_HANDLE_VALUE = [ win32-error ] when ; dup INVALID_HANDLE_VALUE = [ win32-error ] when ;