[bugfix] abuse compare of er-macro

2014-07-17 16:11:33 +09:00
parent 6104a69e2b
commit 5b41b979d9
1 changed files with 1 additions and 1 deletions
@@ -1418,7 +1418,7 @@
       (define (compile-expand ellipsis reserved template)
 	 (letrec ((compile-expand-base
 		   (lambda (template ellipsis-valid)
-		     (cond ((member template reserved compare)
+		     (cond ((member template reserved eq?)
 			    (values (var->sym template) (list template)))
 			   ((symbol? template)
 			    (values `(rename ',template) '()))