From de1aa28094a6c8b373d1a31807c8b85b30053711 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 25 Apr 2017 14:16:06 -0700 Subject: [PATCH] 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. --- src/microcode/uxsig.c | 3 +++ 1 file changed, 3 insertions(+) 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); -- 2.25.1