From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 26 Mar 1999 01:44:10 +0000 (+0000)
Subject: Work around stupid restriction in 8.0 compiler.
X-Git-Tag: 20090517-FFI~4574
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=19c769d2d18bb34b0a3d4dd16d5f01717fd7a38f;p=mit-scheme.git

Work around stupid restriction in 8.0 compiler.
---

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)