From 6e7dfafd860284e7e8bc7ac60f373ef777315aa0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Jan 2018 14:50:33 -0800
Subject: [PATCH] Rename combinator-substitution -> list-substitution.
---
src/runtime/syntax-rename.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/runtime/syntax-rename.scm b/src/runtime/syntax-rename.scm
index 532ccc878..e6b974682 100644
--- a/src/runtime/syntax-rename.scm
+++ b/src/runtime/syntax-rename.scm
@@ -289,7 +289,7 @@ USA.
selector
parts))))
- (define (combinator-substitution reconstruct get-subexpressions)
+ (define (list-substitution reconstruct get-subexpressions)
(lambda (substitution expression)
(reconstruct
(map (lambda (expression)
@@ -352,7 +352,7 @@ USA.
scode-access-name))
(define-as-handler scode-combination?
- (combinator-substitution
+ (list-substitution
(lambda (subexpressions)
(make-scode-combination (car subexpressions) (cdr subexpressions)))
(lambda (expression)
@@ -387,6 +387,6 @@ USA.
scode-disjunction-alternative))
(define-as-handler scode-sequence?
- (combinator-substitution make-scode-sequence scode-sequence-actions))
+ (list-substitution make-scode-sequence scode-sequence-actions))
))
\ No newline at end of file
--
2.25.1