15 lines
375 B
Factor
15 lines
375 B
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
IN: io.thread
|
||
|
|
USING: threads io.backend namespaces init math ;
|
||
|
|
|
||
|
|
: io-thread ( -- )
|
||
|
|
sleep-time io-multiplex yield ;
|
||
|
|
|
||
|
|
: start-io-thread ( -- )
|
||
|
|
[ io-thread t ]
|
||
|
|
"I/O wait" spawn-server
|
||
|
|
\ io-thread set-global ;
|
||
|
|
|
||
|
|
[ start-io-thread ] "io.thread" add-init-hook
|