Add aliases:

interpreter-environment?          => top-level-environment?
extend-interpreter-environment    => extend-top-level-environment
make-null-interpreter-environment => make-null-top-level-environment

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 0154b6349be2dd0808dbda1329ef1fb920621276..56ed880f49423ea04b9d677f703cd074c394ea42 100644 (file)
--- 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 c355e3849b0d7adec94e10f4300cecbbc99e255e..cb934e2f48c5929b8480fc0825c6c97cbdd2730c 100644 (file)
--- 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))))
 \f
-(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