Windows I/O attempted fix

2008-05-31 00:08:02 -05:00 · 2008-05-31 00:08:02 -05:00 · 0090e613d9
parent 10a4216311
commit 0090e613d9
1 changed files with 5 additions and 3 deletions
--- a/extra/io/windows/nt/backend/backend.factor
+++ b/extra/io/windows/nt/backend/backend.factor
@ -64,9 +64,11 @@ M: winnt add-completion ( win32-handle -- )

 : handle-overlapped ( timeout -- ? )
    wait-for-overlapped [
-        >r drop GetLastError
-        [ 1array ] [ expected-io-error? ] bi
-        [ r> 2drop f ] [ r> resume-callback t ] if
+        dup [
+            >r drop GetLastError 1array r> resume-callback t
+        ] [
+            2drop f
+        ] if
    ] [
        resume-callback t
    ] if ;