conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

don't rename unbound symbols

This commit is contained in:
Yuichi Nishiwaki 2014-03-04 00:45:47 +09:00
parent f776907550
commit f8b3f5f1fd
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/macro.c
View File

@ -167,7 +167,6 @@ static pic_sym
symbol_rename(pic_state *pic, pic_sym sym, struct pic_senv *senv) symbol_rename(pic_state *pic, pic_sym sym, struct pic_senv *senv)
{ {
xh_entry *e; xh_entry *e;
pic_sym uniq;
if (! pic_interned_p(pic, sym)) { if (! pic_interned_p(pic, sym)) {
return sym; return sym;
@ -180,9 +179,7 @@ symbol_rename(pic_state *pic, pic_sym sym, struct pic_senv *senv)
break; break;
senv = senv->up; senv = senv->up;
} }
uniq = pic_gensym(pic, sym); return sym;
xh_put_int(senv->name, sym, uniq);
return uniq;
} }
static pic_value static pic_value