From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 Jan 1999 22:58:29 +0000 (+0000)
Subject: Fix thinko.  Change definition of RUN-SYNCHRONOUS-PROCESS so that it
X-Git-Tag: 20090517-FFI~4661
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e36fb564df7de02a3001a18a15d1a694b7fd0c5f;p=mit-scheme.git

Fix thinko.  Change definition of RUN-SYNCHRONOUS-PROCESS so that it
returns the exit code of the subprocess.
---

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