From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 29 Jun 1993 23:22:30 +0000 (+0000)
Subject: Rename global-2 interrupt bit to after-gc, and add new mask timer-ok.
X-Git-Tag: 20090517-FFI~8253
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67dc1d385693b50b27ef8c50163965be67ce6a27;p=mit-scheme.git

Rename global-2 interrupt bit to after-gc, and add new mask timer-ok.
---

diff --git a/v7/src/sf/gconst.scm b/v7/src/sf/gconst.scm
index c85f178fa..b31e0230d 100644
--- a/v7/src/sf/gconst.scm
+++ b/v7/src/sf/gconst.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: gconst.scm,v 4.15 1992/12/02 19:36:26 cph Exp $
+$Id: gconst.scm,v 4.16 1993/06/29 23:22:30 cph Exp $
 
-Copyright (c) 1987-1992 Massachusetts Institute of Technology
+Copyright (c) 1987-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -169,9 +169,9 @@ MIT in each case. |#
     INTEGER->CHAR
     INTEGER-DIVIDE-QUOTIENT
     INTEGER-DIVIDE-REMAINDER
+    INTERRUPT-BIT/AFTER-GC
     INTERRUPT-BIT/GC
     INTERRUPT-BIT/GLOBAL-1
-    INTERRUPT-BIT/GLOBAL-2
     INTERRUPT-BIT/GLOBAL-3
     INTERRUPT-BIT/GLOBAL-GC
     INTERRUPT-BIT/KBD
@@ -181,6 +181,7 @@ MIT in each case. |#
     INTERRUPT-MASK/ALL
     INTERRUPT-MASK/GC-OK
     INTERRUPT-MASK/NONE
+    INTERRUPT-MASK/TIMER-OK
     LAMBDA-TAG:FLUID-LET
     LAMBDA-TAG:LET
     LAMBDA-TAG:MAKE-ENVIRONMENT