Fix Win32 I/O FEP

2006-02-20 04:16:25 +00:00 · 2006-02-20 04:16:25 +00:00 · d8466f6bc6
parent 3b2b86e1a2
commit d8466f6bc6
1 changed files with 1 additions and 1 deletions
--- a/library/win32/win32-io-internals.factor
+++ b/library/win32/win32-io-internals.factor
@ -99,7 +99,7 @@ C: io-callback ( -- callback )
    io-callback-quotation ;

 : (wait-for-io) ( timeout -- error overlapped len )
-    >r completion-port get <int>  0 <int> 0 <int>
+    >r completion-port get  0 <int>  0 <int> 0 <int>
    pick over r> -rot >r >r GetQueuedCompletionStatus r> r> ;

 : overlapped>callback ( overlapped -- callback )