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

2015-06-16 19:16:07 +09:00
parent 84a3eaee35
commit 84bb7e9ffc
1 changed files with 1 additions and 1 deletions
@@ -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)