conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[bugfix] abuse compare of er-macro

This commit is contained in:
Yuichi Nishiwaki 2014-07-17 16:11:33 +09:00
parent 6104a69e2b
commit 5b41b979d9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
piclib/built-in.scm
View File

@ -1418,7 +1418,7 @@
(define (compile-expand ellipsis reserved template) (define (compile-expand ellipsis reserved template)
(letrec ((compile-expand-base (letrec ((compile-expand-base
(lambda (template ellipsis-valid) (lambda (template ellipsis-valid)
(cond ((member template reserved compare) (cond ((member template reserved eq?)
(values (var->sym template) (list template))) (values (var->sym template) (list template)))
((symbol? template) ((symbol? template)
(values `(rename ',template) '())) (values `(rename ',template) '()))