Windows I/O attempted fix

db4
Slava Pestov 2008-05-31 00:08:02 -05:00
parent 10a4216311
commit 0090e613d9
1 changed files with 5 additions and 3 deletions

View File

@ -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 ;