From 0090e613d900f892aaccd9d07c7c177963fe1a26 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 31 May 2008 00:08:02 -0500
Subject: [PATCH] Windows I/O attempted fix
---
extra/io/windows/nt/backend/backend.factor | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/extra/io/windows/nt/backend/backend.factor b/extra/io/windows/nt/backend/backend.factor
index 993aff5200..1a7462f304 100755
--- 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 ;