From 8fe4a48a9686ac5d2a2899110c1e527c836dace6 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 24 Nov 1992 01:10:35 +0000
Subject: [PATCH] Close interrupt window.

CScheme dumps an Scode combination whose operator is the continuation
object.

On restore, it checks for interrupts at the apply point, and if an
interrupt is taken, the fixed objects vector (containing the
interrupt-handlers vector) is invalid because it has not been set yet.
---
 v7/src/microcode/fasload.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c
index 5b50260a0..7620db570 100644
--- a/v7/src/microcode/fasload.c
+++ b/v7/src/microcode/fasload.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: fasload.c,v 9.66 1992/08/29 13:23:35 jinx Exp $
+$Id: fasload.c,v 9.67 1992/11/24 01:10:35 gjr Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -1036,6 +1036,8 @@ DEFINE_PRIMITIVE ("LOAD-BAND", Prim_band_load, 1, 1, 0)
     else
       compiler_initialize (true);
   }
+  /* Until the continuation is invoked. */
+  SET_INTERRUPT_MASK (0);
   Restore_Fixed_Obj (SHARP_F);
   Fluid_Bindings = EMPTY_LIST;
   Current_State_Point = SHARP_F;
-- 
2.25.1