From d8466f6bc6200db3d33a5e0a24256f1a6e7278fc Mon Sep 17 00:00:00 2001 From: slava Date: Mon, 20 Feb 2006 04:16:25 +0000 Subject: [PATCH] Fix Win32 I/O FEP --- library/win32/win32-io-internals.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/library/win32/win32-io-internals.factor b/library/win32/win32-io-internals.factor index b092641a8e..3b11784a3a 100644 --- 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 0 0 + >r completion-port get 0 0 0 pick over r> -rot >r >r GetQueuedCompletionStatus r> r> ; : overlapped>callback ( overlapped -- callback )