Permit a process to be deleted regardless of its status.

diff --git a/v7/src/microcode/prosproc.c b/v7/src/microcode/prosproc.c
index e3a294daa394369eccbb5051bd5a89d10bed9b5c..b01aa4ca7f3e74fd6c9cd7aea0cbc0b9ff1c4992 100644 (file)
--- a/v7/src/microcode/prosproc.c
+++ b/v7/src/microcode/prosproc.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosproc.c,v 1.4 1991/03/08 03:10:16 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosproc.c,v 1.5 1991/03/08 19:49:59 cph Exp $
 
 Copyright (c) 1990-91 Massachusetts Institute of Technology
 
@@ -208,18 +208,10 @@ DEFINE_PRIMITIVE ("SCHEME-ENVIRONMENT", Prim_scheme_environment, 0, 0, 0)
 }
 \f
 DEFINE_PRIMITIVE ("PROCESS-DELETE", Prim_process_delete, 1, 1,
-  "Delete process PROCESS-NUMBER from the process table.\n\
-The process may be deleted only if it is exited or signalled.")
+  "Delete process PROCESS-NUMBER from the process table.")
 {
   PRIMITIVE_HEADER (1);
-  {
-    Tprocess process = (arg_process (1));
-    enum process_status status = (OS_process_status (process));
-    if (! ((status == process_status_exited)
-          || (status == process_status_signalled)))
-      error_bad_range_arg (1);
-    OS_process_deallocate (process);
-  }
+  OS_process_deallocate (arg_process (1));
   PRIMITIVE_RETURN (UNSPECIFIC);
 }
 

diff --git a/v7/src/microcode/uxproc.c b/v7/src/microcode/uxproc.c
index d59b330628c18e59e3c149021f5c29be9b6b9fb0..6b1ae9dd0513d122b9ef84f5bba91e36ba098a1e 100644 (file)
--- a/v7/src/microcode/uxproc.c
+++ b/v7/src/microcode/uxproc.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxproc.c,v 1.6 1991/03/08 03:10:04 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxproc.c,v 1.7 1991/03/08 19:50:44 cph Exp $
 
 Copyright (c) 1990-91 Massachusetts Institute of Technology
 
@@ -204,9 +204,9 @@ DEFUN_VOID (process_allocate)
 void
 DEFUN (OS_process_deallocate, (process), Tprocess process)
 {
+  (PROCESS_ID (process)) = 0;
   (PROCESS_STATUS (process)) = process_status_free;
   (PROCESS_REASON (process)) = 0;
-  (PROCESS_ID (process)) = 0;
 }
 \f
 Tprocess