Windows I/O attempted fix

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
+        dup [
-        [ 1array ] [ expected-io-error? ] bi
+            >r drop GetLastError 1array r> resume-callback t
-        [ r> 2drop f ] [ r> resume-callback t ] if
+        ] [
+            2drop f
+        ] if
     ] [
         resume-callback t
     ] if ;