From 88979eae9c1ead34cbba617ba3e3c756ae701cc4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Dec 2001 20:51:05 +0000
Subject: [PATCH] Rename EXTEND-IC-ENVIRONMENT to
 EXTEND-INTERPRETER-ENVIRONMENT.

---
 v7/src/edwin/intmod.scm    | 8 +++++---
 v7/src/runtime/runtime.pkg | 4 ++--
 v7/src/runtime/uenvir.scm  | 6 +++---
 3 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 068fd90ab..941b8c5e2 100644
--- 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 7824eb522..75e9d2e33 100644
--- 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 dd4b0f44d..e0bd9073c 100644
--- 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)
-- 
2.25.1