[Chicken-users] non-blocking (read)

[Daishi Kato]

Hi,

How could I make the standard (read) non-blocking?

I would like to get the following work.

Version 1, Build 941 - linux-unix-gnu-x86
(c)2000-2005 Felix L. Winkelmann
Using hygienic macros
; loading /usr/local/share/chicken/chicken-highlevel-macros.scm ...
#;1> (use srfi-18)
; loading library srfi-18 ...
#;2> (thread-start! (make-thread (lambda () (let loop () (display 1) (newline) 
(thread-sleep! 10) (loop)))))
#<thread: thread1277>
#;3> 1
1
1
(read)


<<expecting to keep displaying "1">>

Thanks,
Daishi