windows.errors: fix a compilation error

flac
Alexander Iljin 2016-06-29 01:55:15 +03:00 committed by Steve Ayerhart
parent 7c69f0d548
commit d111ecfeec
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 1 additions and 1 deletions

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 ( 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 )
dup INVALID_HANDLE_VALUE = [ win32-error ] when ;