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

inline-expand a small function

This commit is contained in:
Yuichi Nishiwaki 2014-02-12 10:42:17 +09:00
parent 013d734033
commit 9cf7d72e82
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/macro.c
View File

@ -61,12 +61,6 @@ pic_core_syntactic_env(pic_state *pic)
#undef register_core_syntax #undef register_core_syntax
static struct pic_senv *
new_global_senv(pic_state *pic)
{
return pic->lib->senv;
}
static struct pic_senv * static struct pic_senv *
new_local_senv(pic_state *pic, pic_value formals, struct pic_senv *up) new_local_senv(pic_state *pic, pic_value formals, struct pic_senv *up)
{ {
@ -553,18 +547,15 @@ macroexpand_list(pic_state *pic, pic_value list, struct pic_senv *senv)
pic_value pic_value
pic_macroexpand(pic_state *pic, pic_value expr) pic_macroexpand(pic_state *pic, pic_value expr)
{ {
struct pic_senv *senv;
pic_value v; pic_value v;
senv = new_global_senv(pic);
#if DEBUG #if DEBUG
puts("before expand:"); puts("before expand:");
pic_debug(pic, expr); pic_debug(pic, expr);
puts(""); puts("");
#endif #endif
v = macroexpand(pic, expr, senv); v = macroexpand(pic, expr, pic->lib->senv);
#if DEBUG #if DEBUG
puts("after expand:"); puts("after expand:");