From 9c85567299913e6d6257095be1de07a27315af93 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 21 Jan 2018 14:04:17 -0800 Subject: [PATCH] Rename value-binder to variable-binder. --- src/runtime/mit-syntax.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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)) -- 2.25.1