From ecd497479c46a2bccc3bc97328cd571f2acea4ae Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 24 Feb 1999 04:51:57 +0000 Subject: [PATCH] Save "block-thread-events" flag in continuations. This guarantees that it will be properly stored no matter where the continuation is captured. --- v7/src/runtime/thread.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm index f80a88ea8..23626b38c 100644 --- a/v7/src/runtime/thread.scm +++ b/v7/src/runtime/thread.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: thread.scm,v 1.27 1999/02/24 04:43:19 cph Exp $ +$Id: thread.scm,v 1.28 1999/02/24 04:51:57 cph Exp $ Copyright (c) 1991-1999 Massachusetts Institute of Technology @@ -689,10 +689,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. any-events? (begin (if event - (begin + (let ((block? (thread/block-events? thread))) (set-thread/block-events?! thread #t) (event) - (set-interrupt-enables! interrupt-mask/gc-ok))) + (set-interrupt-enables! interrupt-mask/gc-ok) + (set-thread/block-events?! thread block?))) (loop #t)))))) (define (allow-thread-event-delivery) -- 2.25.1