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

generate identifier for unbound symbol in context-free

This commit is contained in:
Yuichi Nishiwaki 2014-07-17 16:10:38 +09:00
parent 6cc37281d6
commit 6104a69e2b
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/macro.c
View File

@ -86,13 +86,7 @@ make_identifier(pic_state *pic, pic_sym sym, struct pic_senv *senv, struct pic_d
break; break;
senv = senv->up; senv = senv->up;
} }
if (pic_dict_has(pic, cxt, sym)) { return pic_gensym(pic, sym);
return pic_sym(pic_dict_ref(pic, cxt, sym));
} else {
rename = pic_gensym(pic, sym);
pic_dict_set(pic, cxt, sym, pic_sym_value(rename));
return rename;
}
} }
static pic_value macroexpand(pic_state *, pic_value, struct pic_senv *, struct pic_dict *); static pic_value macroexpand(pic_state *, pic_value, struct pic_senv *, struct pic_dict *);