From 19c769d2d18bb34b0a3d4dd16d5f01717fd7a38f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 26 Mar 1999 01:44:10 +0000
Subject: [PATCH] Work around stupid restriction in 8.0 compiler.

---
 v7/src/runtime/thread.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index d8fd717a6..372d3d948 100644
--- a/v7/src/runtime/thread.scm
+++ b/v7/src/runtime/thread.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: thread.scm,v 1.32 1999/03/01 05:31:24 cph Exp $
+$Id: thread.scm,v 1.33 1999/03/26 01:44:10 cph Exp $
 
 Copyright (c) 1991-1999 Massachusetts Institute of Technology
 
@@ -691,7 +691,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
    (lambda ()
      (let ((thread first-running-thread))
        (if thread
-	   (set-thread/block-events?! thread block?))))))
+	   (set-thread/block-events?! thread block?)))
+     unspecific)))
 
 (define (signal-thread-event thread event)
   (guarantee-thread thread signal-thread-event)
-- 
2.25.1