diff --git a/scsh/procobj.scm b/scsh/procobj.scm index f2c7723..14c14f5 100644 --- a/scsh/procobj.scm +++ b/scsh/procobj.scm @@ -345,8 +345,10 @@ ;;; All you have to do, if a wait on proc was successful (define (waited-by-wait proc status) - (obituary proc status) - (mark-proc-waited! proc)) + (if (not (status:stop-sig status)) + (begin + (obituary proc status) + (mark-proc-waited! proc)))) ;;; we know from somewhere that proc is dead (define (obituary proc status)