From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Dec 2001 20:51:05 +0000 (+0000)
Subject: Rename EXTEND-IC-ENVIRONMENT to EXTEND-INTERPRETER-ENVIRONMENT.
X-Git-Tag: 20090517-FFI~2386
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=88979eae9c1ead34cbba617ba3e3c756ae701cc4;p=mit-scheme.git

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

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)