From 07ba631c2f7880121b40a67f004560c55faca425 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 1 Oct 2004 01:53:10 +0000
Subject: [PATCH] Eliminate unused ENABLE-INTERRUPTS! and define
 GET-INTERRUPT-ENABLES.

---
 v7/src/runtime/global.scm  | 4 ++--
 v7/src/runtime/runtime.pkg | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 07ff27b17..73a454ea5 100644
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: global.scm,v 14.64 2004/07/04 05:37:25 cph Exp $
+$Id: global.scm,v 14.65 2004/10/01 01:52:52 cph Exp $
 
 Copyright 1988,1989,1991,1992,1993,1995 Massachusetts Institute of Technology
 Copyright 1998,2000,2001,2003,2004 Massachusetts Institute of Technology
@@ -33,7 +33,7 @@ USA.
 
 (define-primitives
   error-procedure
-  set-interrupt-enables! enable-interrupts! with-interrupt-mask
+  get-interrupt-enables set-interrupt-enables! with-interrupt-mask
   get-fixed-objects-vector with-history-disabled
   (primitive-procedure-arity 1)
   (primitive-procedure-documentation 1)
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 6937daaad..10a30f569 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.492 2004/09/14 20:01:36 cph Exp $
+$Id: runtime.pkg,v 14.493 2004/10/01 01:53:10 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1997,1998,1999 Massachusetts Institute of Technology
@@ -281,7 +281,6 @@ USA.
 	  cell?
 	  default/exit
 	  default/quit
-	  enable-interrupts!
 	  environment-link-name
 	  eq?
 	  error-procedure
@@ -290,6 +289,7 @@ USA.
 	  false-procedure
 	  fasdump
 	  get-fixed-objects-vector
+	  get-interrupt-enables
 	  hook/exit
 	  hook/quit
 	  hook/scode-eval
-- 
2.25.1