From 3fb986a4630c8a90152fd563a81a531eff0f3722 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 26 Jul 2014 13:48:07 +0900
Subject: [PATCH] warn syntax redefinition

---
 src/macro.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/macro.c b/src/macro.c
index a31173de..14b67d9c 100644
--- a/src/macro.c
+++ b/src/macro.c
@@ -286,6 +286,8 @@ macroexpand_defsyntax(pic_state *pic, pic_value expr, struct pic_senv *senv)
   sym = pic_sym(var);
   if (! pic_find_rename(pic, senv, sym, &rename)) {
     rename = pic_add_rename(pic, senv, sym);
+  } else {
+    pic_warnf(pic, "redefining syntax variable: ~s", pic_sym_value(sym));
   }
 
   val = pic_cadr(pic, pic_cdr(pic, expr));