scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/sighandlers.scm
View File

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