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

Trivial reindent. 

-Olin
This commit is contained in:
shivers 1998-06-16 18:05:44 +00:00
parent 3239ff9076
commit 269b603081
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/sighandlers.scm
View File

@ -142,10 +142,11 @@
(int->signal int)) => ; to ignored. (int->signal int)) => ; to ignored.
(lambda (sig) (lambda (sig)
(%set-unix-signal-handler sig 0))) (%set-unix-signal-handler sig 0)))
((and handler (not ohandler) ; Toggling from ignored ((and handler (not ohandler) ; Toggling from ignored
(int->signal int)) => ; to something. (int->signal int)) => ; to something.
(lambda (sig) (lambda (sig)
(%set-unix-signal-handler sig 2)))) (%set-unix-signal-handler sig 2))))
ohandler)) ohandler))