dup handle>> dup check-disposed drain
dup [ wait-for-port ] [ 2drop ] if ;
-M: unix io-multiplex ( ms/f -- )
+M: unix io-multiplex ( nanos -- )
mx get-global wait-for-events ;
! On Unix, you're not supposed to set stdin to non-blocking
byte-arrays ;
HELP: io-multiplex
-{ $values { "us" "a non-negative integer" } }
-{ $contract "Waits up to " { $snippet "us" } " microseconds for pending I/O requests to complete." } ;
+{ $values { "nanos" "a non-negative integer" } }
+{ $contract "Waits up to " { $snippet "nanos" } " nanoseconds for pending I/O requests to complete." } ;
HELP: init-io
{ $contract "Initializes the I/O system. Called on startup." } ;
[ utf8 <encoder> output-stream set-global ]
[ utf8 <encoder> error-stream set-global ] tri* ;
-HOOK: io-multiplex io-backend ( us -- )
+HOOK: io-multiplex io-backend ( nanos -- )
HOOK: normalize-directory io-backend ( path -- path' )