From 5b41b979d9ca258f3582afac190f1f56f32bac92 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Thu, 17 Jul 2014 16:11:33 +0900 Subject: [PATCH] [bugfix] abuse compare of er-macro --- piclib/built-in.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index c3323516..379208a7 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -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) '()))