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

View File

@ -147,7 +147,7 @@
;;; New (scsh 0.6)
;;; we don't register the post/gc-handler until the first police change
(define (install-autoreaping)
(define (install-autoreaping)
(let ((setter (low-interrupt-register interrupt/chld early-sigchld-handler)))
(set! *autoreap-policy* 'early)
(set! sigchld-setter setter)))
@ -207,15 +207,13 @@
;;; Return true if no more outstanding children; #f if some still live.
(define (reap-zombies)
(display "reap-zombies was called" (current-error-port))
(newline)
(let lp ()
(receive (pid status) (%wait-any (bitwise-ior wait/poll
wait/stopped-children))
(if pid
(begin (waited-by-reap pid status)
(format (current-error-port)
"Reaping ~d[~d]~%" pid status)
; (format (current-error-port)
; "Reaping ~d[~d]~%" pid status)
(lp))
status))))