basis/io/thread/thread.factor

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