~ chicken-core (chicken-5) 1c11e406191f8f9459cf1605cdcb827a290e0761

commit 1c11e406191f8f9459cf1605cdcb827a290e0761
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Tue May 28 16:18:54 2013 +1200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Tue May 28 22:24:06 2013 +0200

    use internal process-wait procedure in ##sys#process
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/posixunix.scm b/posixunix.scm
index 27424fca..43c7bfa4 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -1871,7 +1871,7 @@ EOF
             (lambda ()
               (vector-set! clsvec idx #t)
               (when (and (vector-ref clsvec idxa) (vector-ref clsvec idxb))
-                (receive [_ flg cod] (process-wait pid)
+                (receive [_ flg cod] (##sys#process-wait pid #f)
                   (unless flg
                     (##sys#signal-hook #:process-error loc
                       "abnormal process exit" pid cod)) ) ) ) )]