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

Fixed an arity bug in %set-unix-signal-handler's call to 

%%set-unix-signal-handler.
This commit is contained in:
shivers 1997-03-10 23:46:42 +00:00
parent 8d7dee0bfa
commit 230263ee0d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/sighandlers.scm
View File

@ -170,7 +170,8 @@
handler-code handler-code
%set-unix-signal-handler) %set-unix-signal-handler)
(let retry () (let retry ()
(receive (err old-hc) (%%set-unix-signal-handler sig handler-code) (receive (err old-hc old-flags)
(%%set-unix-signal-handler sig handler-code 0)
(cond ((not err) old-hc) (cond ((not err) old-hc)
((= err errno/intr) (retry)) ((= err errno/intr) (retry))
(else (errno-error err %set-unix-signal-handler sig handler-code)))))) (else (errno-error err %set-unix-signal-handler sig handler-code))))))