From f756768b97347282a91b92d459190da1a20fe3a9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 12 Feb 2002 15:14:21 +0000
Subject: [PATCH] Add aliases:

interpreter-environment?          => top-level-environment?
extend-interpreter-environment    => extend-top-level-environment
make-null-interpreter-environment => make-null-top-level-environment
---
 v7/src/runtime/runtime.pkg | 13 ++++++++-----
 v7/src/runtime/uenvir.scm  | 18 +++++++++---------
 2 files changed, 17 insertions(+), 14 deletions(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 0154b6349..56ed880f4 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.408 2002/02/12 00:30:51 cph Exp $
+$Id: runtime.pkg,v 14.409 2002/02/12 15:14:21 cph Exp $
 
 Copyright (c) 1988-2002 Massachusetts Institute of Technology
 
@@ -1322,13 +1322,16 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 	  environment-reference-type
 	  environment-safe-lookup
 	  environment?
-	  (extend-ic-environment extend-interpreter-environment)
-	  extend-interpreter-environment
+	  (extend-ic-environment extend-top-level-environment)
+	  (extend-interpreter-environment extend-top-level-environment)
+	  extend-top-level-environment
 	  guarantee-environment
 	  ic-environment?
 	  interpreter-environment?
-	  make-null-interpreter-environment
-	  system-global-environment?)
+	  (make-null-interpreter-environment make-null-top-level-environment)
+	  make-null-top-level-environment
+	  system-global-environment?
+	  (top-level-environment? interpreter-environment?))
   (export (runtime advice)
 	  ic-environment/arguments
 	  ic-environment/procedure)
diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index c355e3849..cb934e2f4 100644
--- a/v7/src/runtime/uenvir.scm
+++ b/v7/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uenvir.scm,v 14.53 2002/01/07 05:01:33 cph Exp $
+$Id: uenvir.scm,v 14.54 2002/02/12 15:13:47 cph Exp $
 
 Copyright (c) 1988-1999, 2001, 2002 Massachusetts Institute of Technology
 
@@ -411,23 +411,23 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
    (lambda ()
      (system-vector-ref environment index))))
 
-(define (extend-interpreter-environment environment #!optional names values)
+(define (extend-top-level-environment environment #!optional names values)
   (if (not (interpreter-environment? environment))
-      (illegal-environment environment 'EXTEND-INTERPRETER-ENVIRONMENT))
-  (%extend-interpreter-environment
+      (illegal-environment environment 'EXTEND-TOP-LEVEL-ENVIRONMENT))
+  (%extend-top-level-environment
    environment
    (if (default-object? names) '() names)
    (if (default-object? values) 'DEFAULT values)
-   'EXTEND-INTERPRETER-ENVIRONMENT))
+   'EXTEND-TOP-LEVEL-ENVIRONMENT))
 
-(define (make-null-interpreter-environment #!optional names values)
-  (%extend-interpreter-environment
+(define (make-null-top-level-environment #!optional names values)
+  (%extend-top-level-environment
    (object-new-type (object-type #f) (fix:xor (object-datum #f) 1))
    (if (default-object? names) '() names)
    (if (default-object? values) 'DEFAULT values)
-   'MAKE-NULL-INTERPRETER-ENVIRONMENT))
+   'MAKE-NULL-TOP-LEVEL-ENVIRONMENT))
 
-(define (%extend-interpreter-environment environment names values procedure)
+(define (%extend-top-level-environment environment names values procedure)
   (if (not (list-of-type? names symbol?))
       (error:wrong-type-argument names "list of symbols" procedure))
   (system-list->vector
-- 
2.25.1