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

removed debugging output

This commit is contained in:
mainzelm 2000-09-12 17:43:48 +00:00
parent ba7000ce43
commit 145ddac9cb
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scsh/procobj.scm
View File

@ -207,15 +207,13 @@
;;; Return true if no more outstanding children; #f if some still live. ;;; Return true if no more outstanding children; #f if some still live.
(define (reap-zombies) (define (reap-zombies)
(display "reap-zombies was called" (current-error-port))
(newline)
(let lp () (let lp ()
(receive (pid status) (%wait-any (bitwise-ior wait/poll (receive (pid status) (%wait-any (bitwise-ior wait/poll
wait/stopped-children)) wait/stopped-children))
(if pid (if pid
(begin (waited-by-reap pid status) (begin (waited-by-reap pid status)
(format (current-error-port) ; (format (current-error-port)
"Reaping ~d[~d]~%" pid status) ; "Reaping ~d[~d]~%" pid status)
(lp)) (lp))
status)))) status))))