Always install default handler for SIGINT. Overwrite it if interactive.
This commit is contained in:
parent
9035313159
commit
d5bbf33756
|
@ -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))))
|
||||
|
|
Loading…
Reference in New Issue