[no subject]

[Michael Becker <mb12@coconet.de>]

 hi,

 i am using scsh.03 on  'HP-UX hp1 A.09.05 A 9000/720' 
 and when i use 'run/strings' , i get zombie-processes :


>  (define get-date 
      (lambda () (car (run/strings  (date)))))
> (get-date)
"Mon Mar 13 21:48:37 MEZ 1995"
> (let loop ((i 0)) (if (< i 10) (begin (format #t "date: ~a~%" (get-date)) 
> (loop (+ i 1)))))
date: Mon Mar 13 21:49:57 MEZ 1995
date: Mon Mar 13 21:49:57 MEZ 1995
date: Mon Mar 13 21:49:57 MEZ 1995
date: Mon Mar 13 21:49:58 MEZ 1995
date: Mon Mar 13 21:49:58 MEZ 1995
date: Mon Mar 13 21:49:58 MEZ 1995
date: Mon Mar 13 21:49:58 MEZ 1995
date: Mon Mar 13 21:49:58 MEZ 1995
date: Mon Mar 13 21:49:58 MEZ 1995
date: Mon Mar 13 21:49:58 MEZ 1995
> (let loop ((i 0)) (if (< i 40)(begin (format #t "date: ~a~%" (get-date)) 
> (loop (+ i 1)))))
date: Mon Mar 13 21:50:19 MEZ 1995
date: Mon Mar 13 21:50:20 MEZ 1995
date: Mon Mar 13 21:50:20 MEZ 1995
date: Mon Mar 13 21:50:20 MEZ 1995
date: Mon Mar 13 21:50:20 MEZ 1995
date: Mon Mar 13 21:50:20 MEZ 1995
date: Mon Mar 13 21:50:20 MEZ 1995
date: Mon Mar 13 21:50:20 MEZ 1995
date: Mon Mar 13 21:50:20 MEZ 1995
date: Mon Mar 13 21:50:20 MEZ 1995
date: Mon Mar 13 21:50:20 MEZ 1995
date: Mon Mar 13 21:50:21 MEZ 1995
date: Mon Mar 13 21:50:21 MEZ 1995
date: Mon Mar 13 21:50:21 MEZ 1995
date: Mon Mar 13 21:50:21 MEZ 1995
date: Mon Mar 13 21:50:21 MEZ 1995
date: Mon Mar 13 21:50:21 MEZ 1995

Error: 11
       "No more processes"
       #{Procedure 8148}
1> 
> 
Exit Scheme 48 (y/n)? y
mb12: (hp1 ~ 532) :

mb12: (hp1 ~ 513) :scsh
Scsh 0.3
> (define get-date 
      (lambda () (car (run/strings  (date)))))
> (get-date)
"Mon Mar 13 21:57:44 MEZ 1995"

;;
;; output of ps:
;;
;; mb12  1485   469  0 21:57:36 ttyp5    0:00 scsh -o /usr/local/lib/scsh/scshv
;; mb12  1486  1485  7 21:57:44 ttyp5    0:00 <defunct>   (zombie)  
;;
;;  



   michael