[Scsh-checkins] CVS: scsh-0.6/scsh sighandlers.scm,1.14,1.15

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv24105

Modified Files:
        sighandlers.scm 
Log Message:
Always install default handler for SIGINT. Overwrite it if interactive.


Index: sighandlers.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/sighandlers.scm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** sighandlers.scm     2001/01/11 15:03:30     1.14
--- sighandlers.scm     2001/01/15 13:43:35     1.15
***************
*** 177,182 ****
      (let ((i (%signal->interrupt sig)))
        (if (not (or (= i -1)
!                  (= sig signal/int)           ; Leave ^c and
!                  (= sig signal/alrm)))        ; alarm handlers alone.
          (set-interrupt-handler 
           i
--- 177,181 ----
      (let ((i (%signal->interrupt sig)))
        (if (not (or (= i -1)
!                  (= sig signal/alrm)))        ; Leave alarm handler alone.
          (set-interrupt-handler 
           i