From: Alexander Iljin <ajsoft@yandex.ru>
Date: Tue, 28 Jun 2016 22:55:15 +0000 (+0300)
Subject: windows.errors: fix a compilation error
X-Git-Tag: 0.99~3582
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=c77cc4c2057fe0ab2fdd755a4ed89b107199ef1b

windows.errors: fix a compilation error
---

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 ;