From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Jan 2018 22:50:33 +0000 (-0800)
Subject: Rename combinator-substitution -> list-substitution.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~294
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6e7dfafd860284e7e8bc7ac60f373ef777315aa0;p=mit-scheme.git

Rename combinator-substitution -> list-substitution.
---

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