From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 24 Nov 1992 01:10:35 +0000 (+0000)
Subject: Close interrupt window.
X-Git-Tag: 20090517-FFI~8712
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8fe4a48a9686ac5d2a2899110c1e527c836dace6;p=mit-scheme.git

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.
---

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;