From f8b3f5f1fdf4b2add9e0ba806ba64ac434b87a02 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 4 Mar 2014 00:45:47 +0900
Subject: [PATCH] don't rename unbound symbols

---
 src/macro.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/macro.c b/src/macro.c
index cd28a53d..33e194cc 100644
--- a/src/macro.c
+++ b/src/macro.c
@@ -167,7 +167,6 @@ static pic_sym
 symbol_rename(pic_state *pic, pic_sym sym, struct pic_senv *senv)
 {
   xh_entry *e;
-  pic_sym uniq;
 
   if (! pic_interned_p(pic, sym)) {
     return sym;
@@ -180,9 +179,7 @@ symbol_rename(pic_state *pic, pic_sym sym, struct pic_senv *senv)
       break;
     senv = senv->up;
   }
-  uniq = pic_gensym(pic, sym);
-  xh_put_int(senv->name, sym, uniq);
-  return uniq;
+  return sym;
 }
 
 static pic_value