From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 25 Apr 2017 21:16:06 +0000 (-0700)
Subject: microcode/uxsig.c: Handle SIGTERM, SIGQUIT and SIGHUP as if a C-g.
X-Git-Tag: mit-scheme-pucked-9.2.12~153^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=de1aa28094a6c8b373d1a31807c8b85b30053711;p=mit-scheme.git

microcode/uxsig.c: Handle SIGTERM, SIGQUIT and SIGHUP as if a C-g.

Thus Scheme has a chance to clean up after a `kill %mit-scheme` or
disconnect.
---

diff --git a/src/microcode/uxsig.c b/src/microcode/uxsig.c
index 284663d08..da8615603 100644
--- a/src/microcode/uxsig.c
+++ b/src/microcode/uxsig.c
@@ -681,6 +681,9 @@ UX_initialize_signals (void)
 #endif
   bind_handler (SIGALRM,	sighnd_timer);
   bind_handler (SIGVTALRM,	sighnd_timer);
+  bind_handler (SIGTERM,	sighnd_control_g);
+  bind_handler (SIGQUIT,	sighnd_control_g);
+  bind_handler (SIGHUP,		sighnd_control_g);
   bind_handler (SIGUSR1,	sighnd_save_then_terminate);
 #ifdef HAVE_NICE
   bind_handler (SIGUSR2,	sighnd_renice);