From 145ddac9cb8dbc7f958767e879491d68a5ffee61 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 12 Sep 2000 17:43:48 +0000
Subject: [PATCH] removed debugging output

---
 scsh/procobj.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/scsh/procobj.scm b/scsh/procobj.scm
index 59a55a6..542cf43 100644
--- a/scsh/procobj.scm
+++ b/scsh/procobj.scm
@@ -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))))