From ed15fd4c4420dff7e070a4eb803d33e1938584a6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 5 Jan 2002 06:15:01 +0000
Subject: [PATCH] Rename ENVIRONMENT-WHICH-BINDS to ENVIRONMENT-THAT-BINDS.
---
v7/src/runtime/xeval.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/v7/src/runtime/xeval.scm b/v7/src/runtime/xeval.scm
index da6286f14..596564c5b 100644
--- a/v7/src/runtime/xeval.scm
+++ b/v7/src/runtime/xeval.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: xeval.scm,v 1.7 2001/12/20 16:28:23 cph Exp $
+$Id: xeval.scm,v 1.8 2002/01/05 06:15:01 cph Exp $
Copyright (c) 1989-1999, 2001 Massachusetts Institute of Technology
@@ -73,7 +73,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
(lambda (item)
(memq item items*))))
-(define (environment-which-binds environment name)
+(define (environment-that-binds environment name)
(let loop ((environment environment))
(if (environment-bound? environment name)
environment
@@ -126,7 +126,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
(define (ccenv-lookup environment name)
(make-combination (make-absolute-reference 'ENVIRONMENT-LOOKUP)
- (list (environment-which-binds environment name) name)))
+ (list (environment-that-binds environment name) name)))
(define (rewrite/assignment expression environment bound-names)
(let ((name (assignment-name expression))
@@ -135,7 +135,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
environment
bound-names)))
(if (memq name bound-names)
- (let ((environment (environment-which-binds environment name)))
+ (let ((environment (environment-that-binds environment name)))
(if (not (environment-assignable? environment name))
(error
"Cannot perform assignment to this compiled-code variable:"
--
2.25.1