From a16eee7e1ec5447bb9fd8b1239c60db852a89a79 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Thu, 13 Feb 2014 13:26:32 +0900
Subject: [PATCH] improve hygiene on define-macro

---
 src/macro.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/macro.c b/src/macro.c
index 71566b90..e623aa7d 100644
--- a/src/macro.c
+++ b/src/macro.c
@@ -316,6 +316,8 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
       else if (tag == pic->sDEFINE_MACRO) {
 	pic_value var, val;
 	struct pic_proc *proc;
+        pic_sym uniq;
+        struct pic_macro *mac;
 
 	if (pic_length(pic, expr) < 2) {
 	  pic_error(pic, "syntax error");
@@ -338,6 +340,8 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
 	if (! pic_sym_p(var)) {
 	  pic_error(pic, "syntax error");
 	}
+        uniq = pic_gensym(pic, pic_sym(var));
+        xh_put_int(senv->name, pic_sym(var), uniq);
 
 	proc = pic_compile(pic, val);
 	if (pic->err) {
@@ -350,7 +354,9 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
 	  abort();
 	}
 	assert(pic_proc_p(v));
-	defmacro(pic, pic_sym(var), pic_proc_ptr(v));
+
+        mac = macro_new(pic, pic_proc_ptr(v), NULL);
+        xh_put_int(pic->macros, uniq, (long)mac);
 
 	pic_gc_arena_restore(pic, ai);
 	return pic_none_value();