microcode/uxsig.c: Handle SIGTERM, SIGQUIT and SIGHUP as if a C-g.
authorMatt Birkholz <matt@birchwood-abbey.net>
Tue, 25 Apr 2017 21:16:06 +0000 (14:16 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Tue, 25 Apr 2017 23:55:52 +0000 (16:55 -0700)
Thus Scheme has a chance to clean up after a `kill %mit-scheme` or
disconnect.

src/microcode/uxsig.c

index 284663d08186b83b9f204b791e5d39c57523e730..da8615603a36958156af5dba2a48162a72a046d7 100644 (file)
@@ -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);