suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: repair for external signals

Browse Source 
Like 2a1404f9a3, but for Ctl-C.
This commit is contained in:
Matthew Flatt 2019-06-20 12:14:48 -06:00
parent 35ff9137e7
commit 6d3eff55a4
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
racket/src/io/sandman/main.rkt
View File

@ -96,6 +96,7 @@
[(eqv? v RKTIO_OS_SIGNAL_HUP) 'hang-up] [(eqv? v RKTIO_OS_SIGNAL_HUP) 'hang-up]
[(eqv? v RKTIO_OS_SIGNAL_TERM) 'terminate] [(eqv? v RKTIO_OS_SIGNAL_TERM) 'terminate]
[else 'break])) [else 'break]))
(wakeup #f)
(check-signals))) (check-signals)))
(when (fd-semaphore-poll-ready?) (when (fd-semaphore-poll-ready?)
(wakeup #f)) (wakeup #f))