From c77cc4c2057fe0ab2fdd755a4ed89b107199ef1b Mon Sep 17 00:00:00 2001 From: Alexander Iljin Date: Wed, 29 Jun 2016 01:55:15 +0300 Subject: [PATCH] windows.errors: fix a compilation error --- basis/windows/errors/errors.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/windows/errors/errors.factor b/basis/windows/errors/errors.factor index ffb735be08..8a057f9458 100644 --- a/basis/windows/errors/errors.factor +++ b/basis/windows/errors/errors.factor @@ -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 ; -- 2.34.1