From e36fb564df7de02a3001a18a15d1a694b7fd0c5f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 29 Jan 1999 22:58:29 +0000 Subject: [PATCH] Fix thinko. Change definition of RUN-SYNCHRONOUS-PROCESS so that it returns the exit code of the subprocess. --- v7/src/runtime/syncproc.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/v7/src/runtime/syncproc.scm b/v7/src/runtime/syncproc.scm index 10b08342c..bcd241eec 100644 --- a/v7/src/runtime/syncproc.scm +++ b/v7/src/runtime/syncproc.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: syncproc.scm,v 1.1 1999/01/29 22:45:54 cph Exp $ +$Id: syncproc.scm,v 1.2 1999/01/29 22:58:29 cph Exp $ Copyright (c) 1999 Massachusetts Institute of Technology @@ -89,19 +89,19 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. environment)))) (let loop () (let* ((status (synchronous-process-wait process context)) - (reason (subprocess-exit-reason process))) + (reason (subprocess-exit-reason process)) + (p process)) (subprocess-delete process) (set! process 'DELETED) (case status ((EXITED) - (if (not (eqv? 0 reason)) - (error:subprocess-exited process reason))) + reason) ((SIGNALLED) - (error:subprocess-signalled process reason)) + (error:subprocess-signalled p reason)) ((STOPPED) - (subprocess-kill process) - (subprocess-wait process) - (error:subprocess-stopped process reason)) + (subprocess-kill p) + (subprocess-wait p) + (error:subprocess-stopped p reason)) ((RUNNING) (loop)) (else -- 2.25.1