Update of /cvsroot/scsh/scsh-0.6/scsh
In directory slayer.i.sourceforge.net:/tmp/cvs-serv32384
Modified Files:
procobj.scm
Log Message:
removed debugging output
Index: procobj.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/procobj.scm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** procobj.scm 1999/11/02 22:34:09 1.5
--- procobj.scm 2000/09/12 17:43:48 1.6
***************
*** 148,152 ****
;;; New (scsh 0.6)
;;; we don't register the post/gc-handler until the first police change
! (define (install-autoreaping)
(let ((setter (low-interrupt-register interrupt/chld
early-sigchld-handler)))
(set! *autoreap-policy* 'early)
--- 148,152 ----
;;; New (scsh 0.6)
;;; we don't register the post/gc-handler until the first police change
! (define (install-autoreaping)
(let ((setter (low-interrupt-register interrupt/chld
early-sigchld-handler)))
(set! *autoreap-policy* 'early)
***************
*** 208,213 ****
(define (reap-zombies)
- (display "reap-zombies was called" (current-error-port))
- (newline)
(let lp ()
(receive (pid status) (%wait-any (bitwise-ior wait/poll
--- 208,211 ----
***************
*** 215,220 ****
(if pid
(begin (waited-by-reap pid status)
! (format (current-error-port)
! "Reaping ~d[~d]~%" pid status)
(lp))
status))))
--- 213,218 ----
(if pid
(begin (waited-by-reap pid status)
! ; (format (current-error-port)
! ; "Reaping ~d[~d]~%" pid status)
(lp))
status))))
|