##thread-status

##thread-status, a general-purpose thread status tool, mostly for debugging purposes.

&gt; (define t (make-thread (lambda () (thread-sleep! 10) 'over)))
&gt; (##thread-status t)
(created)
&gt; (begin (thread-start! t) (##thread-status t))
(starting)
&gt; (##thread-status t)
(running)
&gt; (##thread-status t #t)
(running #&lt;continuation #2&gt;)
&gt; (##thread-status t)
(ended over)
&gt; (define t (thread-start! (make-thread (lambda () (raise "error")))))
&gt; (##thread-status t)
(ended/exception "error")