windows.errors: fix merge

2020-03-25 19:13:07 -05:00 · 2020-03-25 19:13:07 -05:00 · 2321fe8c9a
parent 94a1a8a2af
commit 2321fe8c9a
1 changed files with 1 additions and 5 deletions
--- a/basis/windows/errors/errors.factor
+++ b/basis/windows/errors/errors.factor
@ -748,11 +748,7 @@ CONSTANT: expected-io-errors
    expected-io-errors member? ;

 : expected-io-error ( error-code -- )
-    dup expected-io-error? [
-        drop
-    ] [
-        win32-error
-    ] if ;
+    expected-io-error? [ win32-error ] unless ;

 : io-error ( return-value -- )
    { 0 f } member? [ GetLastError expected-io-error ] when ;