Always install default handler for SIGINT. Overwrite it if interactive.

This commit is contained in:
mainzelm 2001-01-15 13:43:35 +00:00
parent 9035313159
commit d5bbf33756
1 changed files with 1 additions and 2 deletions

View File

@ -176,8 +176,7 @@
((< sig 0))
(let ((i (%signal->interrupt sig)))
(if (not (or (= i -1)
(= sig signal/int) ; Leave ^c and
(= sig signal/alrm))) ; alarm handlers alone.
(= sig signal/alrm))) ; Leave alarm handler alone.
(set-interrupt-handler
i
#t))))