steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix Win32 I/O FEP

slava 2006-02-20 04:16:25 +00:00
parent 3b2b86e1a2
commit d8466f6bc6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/win32/win32-io-internals.factor
View File

@ -99,7 +99,7 @@ C: io-callback ( -- callback )
io-callback-quotation ; io-callback-quotation ;
: (wait-for-io) ( timeout -- error overlapped len ) : (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> ; pick over r> -rot >r >r GetQueuedCompletionStatus r> r> ;
: overlapped>callback ( overlapped -- callback ) : overlapped>callback ( overlapped -- callback )