cs: repair for external signals

Like 2a1404f9a3, but for Ctl-C.
2019-06-20 12:14:48 -06:00 · 2019-06-20 12:14:48 -06:00 · 6d3eff55a4
commit 6d3eff55a4
parent 35ff9137e7
1 changed files with 1 additions and 0 deletions
--- a/racket/src/io/sandman/main.rkt
+++ b/racket/src/io/sandman/main.rkt
@ -96,6 +96,7 @@
                                        [(eqv? v RKTIO_OS_SIGNAL_HUP) 'hang-up]
                                        [(eqv? v RKTIO_OS_SIGNAL_TERM) 'terminate]
                                        [else 'break]))
+           (wakeup #f)
           (check-signals)))
       (when (fd-semaphore-poll-ready?)
         (wakeup #f))