From ea2461e03d8d14cb35e1d60c3ff7d68aea94e390 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 11 Mar 1992 12:17:00 +0000 Subject: [PATCH] Fix bug in RUN-THREAD that would leave the block-events bit turned on after delivery of an event. --- v7/src/runtime/thread.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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) -- 2.25.1