From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 24 Mar 1992 23:30:08 +0000 (+0000)
Subject: Change subprocess status operation to work correctly after subprocess
X-Git-Tag: 20090517-FFI~9576
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6a7793bc014684531c41bb9cab169296b327bb6d;p=mit-scheme.git

Change subprocess status operation to work correctly after subprocess
has been deleted.
---

diff --git a/v7/src/runtime/process.scm b/v7/src/runtime/process.scm
index dacbf05fc..be44469f6 100644
--- a/v7/src/runtime/process.scm
+++ b/v7/src/runtime/process.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/process.scm,v 1.14 1991/11/15 05:15:06 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/process.scm,v 1.15 1992/03/24 23:30:08 cph Exp $
 
-Copyright (c) 1989-91 Massachusetts Institute of Technology
+Copyright (c) 1989-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -211,7 +211,7 @@ MIT in each case. |#
   (without-interrupts
    (lambda ()
      (let ((index (subprocess-index process)))
-       (if ((ucode-primitive process-status-sync 1) index)
+       (if (and index ((ucode-primitive process-status-sync 1) index))
 	   (begin
 	     (set-subprocess-%status!
 	      process