[bugfix] syntax-rules: don't compare with variable=? a value of other type than variable
This commit is contained in:
parent
84a3eaee35
commit
84bb7e9ffc
|
@ -79,7 +79,7 @@
|
||||||
((constant? pat)
|
((constant? pat)
|
||||||
#`(equal? '#,pat #,form))
|
#`(equal? '#,pat #,form))
|
||||||
((literal? pat)
|
((literal? pat)
|
||||||
#`(variable=? #'#,pat #,form))
|
#`(and (variable? #,form) (variable=? #'#,pat #,form)))
|
||||||
((variable? pat)
|
((variable? pat)
|
||||||
#t)
|
#t)
|
||||||
((many? pat)
|
((many? pat)
|
||||||
|
|
Loading…
Reference in New Issue