Don't mark stopped processes as dead

2005-09-14 11:03:24 +00:00 · 2005-09-14 11:03:24 +00:00 · 89db21acf6
parent 03d11e2576
commit 89db21acf6
1 changed files with 4 additions and 2 deletions
--- 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)