From 41ecd9115f28960e62b2cd68b062fd3705327728 Mon Sep 17 00:00:00 2001
From: Hal Abelson <edu/mit/hal>
Date: Wed, 28 Apr 1993 22:31:46 +0000
Subject: [PATCH] Always restore state of BLOCK-EVENTS? flag in a thread when
 returning from SUSPEND-CURRENT-THREAD.

---
 v7/src/runtime/thread.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index c1adb3e60..0837dfb01 100644
--- a/v7/src/runtime/thread.scm
+++ b/v7/src/runtime/thread.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: thread.scm,v 1.12 1993/04/28 19:47:27 cph Exp $
+$Id: thread.scm,v 1.13 1993/04/28 22:31:46 hal Exp $
 
 Copyright (c) 1991-1993 Massachusetts Institute of Technology
 
@@ -227,7 +227,7 @@ MIT in each case. |#
 (define (%suspend-current-thread)
   (let ((thread (current-thread)))
     (let ((block-events? (thread/block-events? thread)))
-      (set-thread/block-events?! thread false)
+      (set-thread/block-events?! thread #f)
       (maybe-signal-input-thread-events)
       (let ((event
 	     (let ((event (handle-thread-events thread)))
@@ -239,8 +239,7 @@ MIT in each case. |#
 			(set-thread/continuation! thread continuation)
 			(thread-not-running thread 'WAITING))))
 		   event))))
-	(if (not block-events?)
-	    (set-thread/block-events?! thread #f))
+	(set-thread/block-events?! thread block-events?)
 	event))))
 
 (define (disallow-preempt-current-thread)
-- 
2.25.1