From 6d3eff55a404fab6f550c93cf24886ded95912dc Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 20 Jun 2019 12:14:48 -0600
Subject: [PATCH] cs: repair for external signals

Like 2a1404f9a3, but for Ctl-C.
---
 racket/src/io/sandman/main.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/racket/src/io/sandman/main.rkt b/racket/src/io/sandman/main.rkt
index 8d9bd41c08..495b92edbf 100644
--- 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))