From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Tue, 30 Mar 2010 00:46:50 +0000 (-0700)
Subject: Declare r-rename and r-compare as IGNORABLE.
X-Git-Tag: 20100708-Gtk~71^2~6
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f62255bab6a05df9b985579d2aefbf53e71f02ba;p=mit-scheme.git

Declare r-rename and r-compare as IGNORABLE.
---

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)