Rename EXTEND-IC-ENVIRONMENT to EXTEND-INTERPRETER-ENVIRONMENT.

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 068fd90ab6e6f086cd1f03a0138b4ae464f4355e..941b8c5e2bfdc8b0c1a70e058f4683311572b27c 100644 (file)
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: intmod.scm,v 1.113 2001/02/27 17:49:36 cph Exp $
+;;; $Id: intmod.scm,v 1.114 2001/12/18 20:50:51 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -16,7 +16,8 @@
 ;;;
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
 
 ;;;; Inferior REPL Mode
 ;;; Package: (edwin inferior-repl)
@@ -78,7 +79,8 @@ With two C-u's, creates a new REPL buffer with a new evaluation environment.
                                        #f)
                  repl-buffer))))
         (if (>= argument 16)
-            (make-new (extend-ic-environment system-global-environment))
+            (make-new
+             (extend-interpreter-environment system-global-environment))
             (or (and (< argument 4) (current-repl-buffer* buffer))
                 (make-new user-initial-environment))))))))
 

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 7824eb522ae51365242d28c80ee6a581ed3cd70f..75e9d2e33db1f1ea9887f497a81bb84fe74caa4e 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.386 2001/12/18 20:44:13 cph Exp $
+$Id: runtime.pkg,v 14.387 2001/12/18 20:51:05 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -1330,7 +1330,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
          environment-parent
          environment-procedure-name
          environment?
-         extend-ic-environment
+         extend-interpreter-environment
          ic-environment?
          interpreter-environment?
          make-null-interpreter-environment

diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index dd4b0f44d4f995f545de0be9f0603ed3cffc8a15..e0bd9073c8a5308c52c81966e4a47671aab1c145 100644 (file)
--- a/v7/src/runtime/uenvir.scm
+++ b/v7/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uenvir.scm,v 14.44 2001/12/18 20:49:33 cph Exp $
+$Id: uenvir.scm,v 14.45 2001/12/18 20:50:59 cph Exp $
 
 Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology
 
@@ -310,9 +310,9 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
          (system-pair-set-cdr! procedure null-environment)))
     environment))
 
-(define (extend-ic-environment environment)
+(define (extend-interpreter-environment environment)
   (if (not (interpreter-environment? environment))
-      (illegal-environment environment 'EXTEND-IC-ENVIRONMENT))
+      (illegal-environment environment 'EXTEND-INTERPRETER-ENVIRONMENT))
   (eval '(LET () (THE-ENVIRONMENT)) environment))
 
 (define (ic-environment/lambda environment)