From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 21 Jan 2018 22:04:17 +0000 (-0800)
Subject: Rename value-binder to variable-binder.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~324
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9c85567299913e6d6257095be1de07a27315af93;p=mit-scheme.git

Rename value-binder to variable-binder.
---

diff --git a/src/runtime/mit-syntax.scm b/src/runtime/mit-syntax.scm
index 9728a7cd3..e508e0a72 100644
--- a/src/runtime/mit-syntax.scm
+++ b/src/runtime/mit-syntax.scm
@@ -147,8 +147,8 @@ USA.
 	   (syntactic-environment/define environment
 					 name
 					 (make-reserved-name-item)))
-       (value-binder environment name
-		     (classify/expression (caddr form) environment))))))
+       (variable-binder environment name
+			(classify/expression (caddr form) environment))))))
 
 (define (classifier:define-syntax form environment)
   (syntax-check '(keyword identifier expression) form)
@@ -166,9 +166,9 @@ USA.
       (syntax-error "Syntactic binding value must be a keyword:" name))
   (syntactic-environment/define environment name item))
 
-(define (value-binder environment name item)
+(define (variable-binder environment name item)
   (if (keyword-item? item)
-      (syntax-error "Normal binding value must not be a keyword:" name))
+      (syntax-error "Variable binding value must not be a keyword:" name))
   (make-binding-item (bind-variable! environment name) item))
 
 ;;;; LET-like
@@ -181,9 +181,9 @@ USA.
 	   (binding-env (make-internal-syntactic-environment env)))
        (let ((binding-items
 	      (map (lambda (binding)
-		     (value-binder binding-env
-				   (car binding)
-				   (classify/expression (cadr binding) env)))
+		     (variable-binder binding-env
+				      (car binding)
+				      (classify/expression (cadr binding) env)))
 		   bindings)))
 	 (make-expression-item
 	  (let ((names (map binding-item/name binding-items))