diff --git a/scsh/sighandlers.scm b/scsh/sighandlers.scm index e12c724..34fee56 100644 --- a/scsh/sighandlers.scm +++ b/scsh/sighandlers.scm @@ -142,10 +142,11 @@ (int->signal int)) => ; to ignored. (lambda (sig) (%set-unix-signal-handler sig 0))) + ((and handler (not ohandler) ; Toggling from ignored (int->signal int)) => ; to something. - (lambda (sig) - (%set-unix-signal-handler sig 2)))) + (lambda (sig) + (%set-unix-signal-handler sig 2)))) ohandler))