Reimplement `thread-dead?' because Edwin needs it.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 1facfa74d25db8f6414bd14f59a1025516d8fd26..2fde34c1318e6192eee07c9d020886ce511070d1 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.182 1993/07/01 22:19:23 cph Exp $
+$Id: runtime.pkg,v 14.183 1993/07/01 23:07:57 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2478,6 +2478,7 @@ MIT in each case. |#
          stop-thread-timer
          suspend-current-thread
          thread-continuation
+         thread-dead?
          thread-execution-state
          thread-mutex-owner
          thread-mutex?

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index 88e0697d128a75164b830ed0088b6489e821c507..ed139c272c3348c1f05e030e2d8bcb7fded5a7ca 100644 (file)
--- a/v7/src/runtime/thread.scm
+++ b/v7/src/runtime/thread.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: thread.scm,v 1.14 1993/07/01 22:19:24 cph Exp $
+$Id: thread.scm,v 1.15 1993/07/01 23:08:04 cph Exp $
 
 Copyright (c) 1991-1993 Massachusetts Institute of Technology
 
@@ -89,6 +89,9 @@ MIT in each case. |#
 
 (define no-exit-value-marker
   (list 'NO-EXIT-VALUE-MARKER))
+
+(define-integrable (thread-dead? thread)
+  (eq? 'DEAD (thread/execution-state thread)))
 \f
 (define thread-population)
 (define first-running-thread)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 1facfa74d25db8f6414bd14f59a1025516d8fd26..2fde34c1318e6192eee07c9d020886ce511070d1 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.182 1993/07/01 22:19:23 cph Exp $
+$Id: runtime.pkg,v 14.183 1993/07/01 23:07:57 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2478,6 +2478,7 @@ MIT in each case. |#
          stop-thread-timer
          suspend-current-thread
          thread-continuation
+         thread-dead?
          thread-execution-state
          thread-mutex-owner
          thread-mutex?