From 84bb7e9ffc70e9cfd9a66cdf4e8353da4da20465 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 16 Jun 2015 01:58:50 +0900
Subject: [PATCH] =?UTF-8?q?[bugfix]=20syntax-rules:=20don't=20compare=20wi?=
 =?UTF-8?q?th=20variable=3D=3F=20a=20value=20of=20other=20type=20than=20va?=
 =?UTF-8?q?riable?=

---
 piclib/picrin/syntax-rules.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/piclib/picrin/syntax-rules.scm b/piclib/picrin/syntax-rules.scm
index ee190a62..4d26bdca 100644
--- 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)