1 ! Copyright (C) 2008 Slava Pestov.
\r
2 ! See http://factorcode.org/license.txt for BSD license.
\r
4 USING: threads io.backend namespaces init math ;
\r
7 sleep-time io-multiplex yield ;
\r
9 : start-io-thread ( -- )
\r
11 "I/O wait" spawn-server
\r
12 \ io-thread set-global ;
\r
14 [ start-io-thread ] "io.thread" add-init-hook
\r