X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fwindows%2Ferrors%2Ferrors.factor;fp=basis%2Fwindows%2Ferrors%2Ferrors.factor;h=b31104c4fed0b180a3813b8451856e7d88235cca;hp=feb933f2b1f4505f5f1158e869f6a57665a00fc6;hb=7c8707fd633c753d3bdea864475b699253dc4acf;hpb=449c6c19017daf7ca7720e59de4635101d0c083f

diff --git a/basis/windows/errors/errors.factor b/basis/windows/errors/errors.factor
index feb933f2b1..b31104c4fe 100644
--- a/basis/windows/errors/errors.factor
+++ b/basis/windows/errors/errors.factor
@@ -733,13 +733,10 @@ ERROR: windows-error n string ;
 ! Note that win32-error* words throw GetLastError code.
 : win32-error ( -- ) GetLastError n>win32-error-check ;
 : 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 -- ) zero? [ win32-error ] unless ;
 : win32-error=0/f-ignore-timeout ( n -- )
     { 0 f } member? [ win32-error-ignore-timeout ] when ;
 
-: win32-allow-errors ( n allowed -- n )
+: win32-allow-errors ( n allowed-seq -- n )
     GetLastError 2dup swap member? [
         2drop
     ] [
@@ -765,6 +762,3 @@ CONSTANT: expected-io-errors
 
 : expected-io-error ( error-code -- )
     expected-io-error? [ win32-error ] unless ;
-
-: io-error ( return-value -- )
-    { 0 f } member? [ GetLastError expected-io-error ] when ;