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

Fixed check for stopped child.

This commit is contained in:
mainzelm 2001-12-17 15:39:22 +00:00
parent 314b0deae9
commit 6643c70391
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/cygwin32/waitcodes.scm
View File

@ -32,7 +32,7 @@
(define (status:term-sig status) (define (status:term-sig status)
(let ((termsig (bitwise-and status #x7F))) (let ((termsig (bitwise-and status #x7F)))
(and (not (zero? termsig)) ; Didn't exit. (and (not (zero? termsig)) ; Didn't exit.
(not (= #x7F)) ; Not suspended. (not (= termsig #x7F)) ; Not suspended.
termsig))) termsig)))