From f62255bab6a05df9b985579d2aefbf53e71f02ba Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Mon, 29 Mar 2010 17:46:50 -0700 Subject: [PATCH] Declare r-rename and r-compare as IGNORABLE. --- src/runtime/syntax-rules.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/runtime/syntax-rules.scm b/src/runtime/syntax-rules.scm index 8338598ec..8737471f9 100644 --- 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) -- 2.25.1