From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 11 Jul 2015 19:32:52 +0000 (-0700)
Subject: Add type-checking to thread-dead?.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~66
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4418ab72b32d1a2237cc8361d12348cac414931a;p=mit-scheme.git

Add type-checking to thread-dead?.
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 862c1cf68..fc75ab94b 100644
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -88,7 +88,8 @@ USA.
 (define no-exit-value-marker
   (list 'NO-EXIT-VALUE-MARKER))
 
-(define-integrable (thread-dead? thread)
+(define (thread-dead? thread)
+  (guarantee-thread thread 'THREAD-DEAD?)
   (eq? 'DEAD (thread/execution-state thread)))
 
 (define thread-population)