Forgot that us parameter might be f

2008-11-24 05:45:57 -06:00 · 2008-11-24 05:45:57 -06:00 · a264adc74c
parent 1fc2d4afbd
commit a264adc74c
1 changed files with 1 additions and 1 deletions
--- a/basis/io/windows/nt/backend/backend.factor
+++ b/basis/io/windows/nt/backend/backend.factor
@ -53,7 +53,7 @@ M: winnt add-completion ( win32-handle -- )
    0 <int> [ ! bytes
        f <void*> ! key
        f <void*> [ ! overlapped
-            us 1000 /i INFINITE or ! timeout
+            us [ 1000 /i ] [ INFINITE ] if* ! timeout
            GetQueuedCompletionStatus zero?
        ] keep *void*
    ] keep *int spin ;