[Chicken-janitors] #1372: mailbox timeouts and thread signaling

[Chicken Trac]

#1372: mailbox timeouts and thread signaling
------------------------+--------------------------------
 Reporter:  caolan      |                 Owner:
     Type:  defect      |                Status:  new
 Priority:  major       |             Milestone:  someday
Component:  extensions  |               Version:  4.12.0
 Keywords:  mailbox     |  Estimated difficulty:
------------------------+--------------------------------
 There appears to be a scheduler problem in the mailbox egg. If I signal a
 thread waiting on mailbox-receive! with a timeout, the program hangs and
 csi eats all my cpu.

 {{{#!scheme
 (use srfi-18 mailbox)

 (define mbox (make-mailbox))
 (define primordial (current-thread))

 (define t (thread-start! (lambda ()
                            (thread-sleep! 1)
                            (thread-signal! primordial 'example))))

 ;; this hangs forever and eats all my cycles (with timeout)
 (print (mailbox-receive! mbox 4))

 ;; this exits as expected with the 'example exception (no timeout)
 (print (mailbox-receive! mbox))
 }}}

--
Ticket URL: <https://bugs.call-cc.org/ticket/1372>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.