From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 1 Jul 1993 23:08:04 +0000 (+0000)
Subject: Reimplement `thread-dead?' because Edwin needs it.
X-Git-Tag: 20090517-FFI~8219
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d4174f96662637f28775e3ee086853eda2115fc9;p=mit-scheme.git

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

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 1facfa74d..2fde34c13 100644
--- 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 88e0697d1..ed139c272 100644
--- 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)))
 
 (define thread-population)
 (define first-running-thread)
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 1facfa74d..2fde34c13 100644
--- 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?