[Chicken-users] csi running inside emacs and srfi-18

[Ian Oversby]

Hi,

I'm getting some surprising behaviour using csi under emacs with srfi-18.
I have the following code:

(require-extension srfi-18)

(let ((thread-1 (make-thread (lambda ()
                              (let loop ((x 1))
                                (when (<= x 20)
                                  (thread-sleep! 1)
                                  (print x)
                                  (loop (+ x 1))))))))
 (thread-start! thread-1)
 (thread-join! thread-1 10 'finished))

(print "Hello World")

Either compiling the code or using csi from a dos-shell works as expected.
However, under emacs it displays finished immediately on evaluating the
let expression.  Evaluating the print statement convinces the thread to
display one of the values as well as "Hello World".  Does anyone have an
idea how to persuade either csi or emacs to display the values as it does
outside of emacs?

Thanks,

Ian