>From 7c835750032b5c073449dbb50dc7e7475e9587c3 Mon Sep 17 00:00:00 2001 From: Evan Hanson Date: Tue, 28 May 2013 16:18:54 +1200 Subject: [PATCH] use internal process-wait procedure in ##sys#process --- posixunix.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/posixunix.scm b/posixunix.scm index 7d8dcaf..88a88a0 100644 --- a/posixunix.scm +++ b/posixunix.scm @@ -1859,7 +1859,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)) ) ) ) )] -- 1.7.10.4