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

allow multiple identifier aliasing

This commit is contained in:
Yuichi Nishiwaki 2014-07-21 16:32:51 +09:00
parent f8904d199f
commit 12fb80b857
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/macro.c
View File

@ -35,12 +35,7 @@ pic_find_rename(pic_state *pic, struct pic_senv *senv, pic_sym sym, pic_sym *ren
{ {
xh_entry *e; xh_entry *e;
if (! pic_interned_p(pic, sym)) { UNUSED(pic);
if (rename != NULL) {
*rename = sym;
}
return true;
}
if ((e = xh_get_int(&senv->map, sym)) == NULL) { if ((e = xh_get_int(&senv->map, sym)) == NULL) {
return false; return false;
@ -87,7 +82,12 @@ make_identifier(pic_state *pic, pic_sym sym, struct pic_senv *senv)
break; break;
senv = senv->up; senv = senv->up;
} }
return pic_gensym(pic, sym); if (! pic_interned_p(pic, sym)) {
return sym;
}
else {
return pic_gensym(pic, sym);
}
} }
static pic_value macroexpand(pic_state *, pic_value, struct pic_senv *); static pic_value macroexpand(pic_state *, pic_value, struct pic_senv *);