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

s/pic_expand/pic_macroexpand/g

This commit is contained in:
Yuichi Nishiwaki 2013-11-18 16:36:44 +09:00
parent a3c2dabcc7
commit 6f94202e13
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/picrin.h
View File

@ -115,7 +115,7 @@ int pic_parse_cstr(pic_state *, const char *, pic_value *);
pic_value pic_apply(pic_state *pic, struct pic_proc *, pic_value);
pic_value pic_apply_argv(pic_state *pic, struct pic_proc *, size_t, ...);
struct pic_proc *pic_codegen(pic_state *, pic_value);
pic_value pic_expand(pic_state *, pic_value);
pic_value pic_macroexpand(pic_state *, pic_value);
void pic_abort(pic_state *, const char *);
void pic_raise(pic_state *, pic_value);

2
src/codegen.c
View File

@ -872,7 +872,7 @@ pic_codegen(pic_state *pic, pic_value obj)
state->irep = new_irep(pic);
state->irep->argc = 1;
state->irep->localc = 0;
codegen(state, pic_expand(pic, obj), false);
codegen(state, pic_macroexpand(pic, obj), false);
state->irep->code[state->irep->clen].insn = OP_RET;
state->irep->clen++;
state->irep->cv_num = 0;

2
src/expand.c
View File

@ -162,7 +162,7 @@ expand(pic_state *pic, pic_value obj, struct syntactic_env *env)
}
pic_value
pic_expand(pic_state *pic, pic_value obj)
pic_macroexpand(pic_state *pic, pic_value obj)
{
struct syntactic_env env;
pic_value v;