* signal.c (set_sig_handler): Clear the deferred flag

for a signal that is being set to ignored or default.

* txr.1: Documented signals.

1 files changed, 4 insertions, 0 deletions

diff --git a/signal.c b/signal.c
index f680bf4d..c833131b 100644
--- a/signal.c
+++ b/signal.c
@@ -137,10 +137,14 @@ val set_sig_handler(val signo, val lambda)
   old_lambda = sig_lambda[sig];
 
   if (lambda != old_lambda) {
+    unsigned long mask = 1UL << sig;
+
     if (lambda == nil) {
       signal(sig, SIG_IGN);
+      sig_deferred &= ~mask;
     } else if (lambda == t) {
       signal(sig, SIG_DFL);
+      sig_deferred &= ~mask;
     } else {
       struct sigaction sa = { 0 };