11 lines
265 B
Factor
11 lines
265 B
Factor
|
USING: compiler.units definitions io.backend io.streams.c kernel
|
||
|
|
math threads.private vocabs ;
|
||
|
|
|
||
|
|
[
|
||
|
|
c-io-backend forget
|
||
|
|
"io.streams.c" forget-vocab
|
||
|
|
] with-compilation-unit
|
||
|
|
|
||
|
|
M: object io-multiplex
|
||
|
|
dup 0 = [ drop ] [ 60 60 * 1000 * 1000 * or (sleep) ] if ;
|