Work around stupid restriction in 8.0 compiler.

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index d8fd717a6f72aa461c5cf399f9b05790fa157652..372d3d94877840441d4ebd7542129f42490df97d 100644 (file)
--- 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)))
 \f
 (define (signal-thread-event thread event)
   (guarantee-thread thread signal-thread-event)