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

Don't mark stopped processes as dead

This commit is contained in:
mainzelm 2005-09-14 11:03:24 +00:00
parent 03d11e2576
commit 89db21acf6
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scsh/procobj.scm
View File

@ -345,8 +345,10 @@
;;; All you have to do, if a wait on proc was successful ;;; All you have to do, if a wait on proc was successful
(define (waited-by-wait proc status) (define (waited-by-wait proc status)
(obituary proc status) (if (not (status:stop-sig status))
(mark-proc-waited! proc)) (begin
(obituary proc status)
(mark-proc-waited! proc))))
;;; we know from somewhere that proc is dead ;;; we know from somewhere that proc is dead
(define (obituary proc status) (define (obituary proc status)