Rename combinator-substitution -> list-substitution.

diff --git a/src/runtime/syntax-rename.scm b/src/runtime/syntax-rename.scm
index 532ccc87829ba9a210100f25e240ccb2095db605..e6b974682ff216efcb3a4f0a96a706dbaac5d272 100644 (file)
--- 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