Declare r-rename and r-compare as IGNORABLE.

diff --git a/src/runtime/syntax-rules.scm b/src/runtime/syntax-rules.scm
index 8338598ecc6478503e91a5627c7076c70fd276f5..8737471f9252f5fdeffd8705a3e9b92a8e700dd6 100644 (file)
--- a/src/runtime/syntax-rules.scm
+++ b/src/runtime/syntax-rules.scm
@@ -52,7 +52,7 @@ USA.
             `(,(rename 'ER-MACRO-TRANSFORMER)
               (,(rename 'LAMBDA)
                (,r-form ,r-rename ,r-compare)
-               ,r-compare              ;prevent compiler warnings
+               (,(rename 'DECLARE) (IGNORABLE ,r-rename ,r-compare))
                ,(let loop ((clauses clauses))
                   (if (pair? clauses)
                       (let ((pattern (caar clauses)))
@@ -67,7 +67,6 @@ USA.
                                               sids (cadar clauses))
                             ,(loop (cdr clauses)))))
                       `(,(rename 'BEGIN)
-                        ,r-rename      ;prevent compiler warnings
                         (,(rename 'ILL-FORMED-SYNTAX) ,r-form))))))))))))
 
 (define (parse-pattern rename compare keywords pattern expression)