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

8
scsh/procobj.scm
View File

@ -147,7 +147,7 @@
;;; New (scsh 0.6) ;;; New (scsh 0.6)
;;; we don't register the post/gc-handler until the first police change ;;; 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))) (let ((setter (low-interrupt-register interrupt/chld early-sigchld-handler)))
(set! *autoreap-policy* 'early) (set! *autoreap-policy* 'early)
(set! sigchld-setter setter))) (set! sigchld-setter setter)))
@ -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))))