From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 11 Mar 1992 12:17:00 +0000 (+0000)
Subject: Fix bug in RUN-THREAD that would leave the block-events bit turned on
X-Git-Tag: 20090517-FFI~9612
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ea2461e03d8d14cb35e1d60c3ff7d68aea94e390;p=mit-scheme.git

Fix bug in RUN-THREAD that would leave the block-events bit turned on
after delivery of an event.
---

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index 0e8fd671e..8004e9647 100644
--- a/v7/src/runtime/thread.scm
+++ b/v7/src/runtime/thread.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/thread.scm,v 1.2 1992/02/25 22:56:21 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/thread.scm,v 1.3 1992/03/11 12:17:00 cph Exp $
 
 Copyright (c) 1991-92 Massachusetts Institute of Technology
 
@@ -153,7 +153,9 @@ MIT in each case. |#
       (%within-continuation continuation true
 	(lambda ()
 	  (if event
-	      (handle-thread-event thread event)))))))
+	      (begin
+		(handle-thread-event thread event)
+		(set-thread/block-events?! thread false))))))))
 
 (define (thread-not-running thread state)
   (set-thread/execution-state! thread state)