[bugfix] syntax-rules: don't compare with variable=? a value of other type than variable

2015-06-16 01:58:50 +09:00 · 2015-06-16 01:58:50 +09:00 · 84bb7e9ffc
parent 84a3eaee35
commit 84bb7e9ffc
1 changed files with 1 additions and 1 deletions
--- a/piclib/picrin/syntax-rules.scm
+++ b/piclib/picrin/syntax-rules.scm
@ -79,7 +79,7 @@
               ((constant? pat)
                #`(equal? '#,pat #,form))
               ((literal? pat)
-                #`(variable=? #'#,pat #,form))
+                #`(and (variable? #,form) (variable=? #'#,pat #,form)))
               ((variable? pat)
                #t)
               ((many? pat)