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

refactor analyze_var

This commit is contained in:
Yuichi Nishiwaki 2014-03-20 11:43:55 +09:00
parent 0cb8920276
commit 6d6420f2b9
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/codegen.c
View File

@ -281,6 +281,20 @@ analyze(analyze_state *state, pic_value obj, bool tailpos)
return res; return res;
} }
static pic_value
analyze_var(analyze_state *state, pic_value obj)
{
pic_state *pic = state->pic;
pic_sym sym;
int depth;
sym = pic_sym(obj);
if ((depth = lookup_var(state, sym)) == -1) {
pic_errorf(pic, "unbound variable %s", pic_symbol_name(pic, sym));
}
return new_ref(state, depth, sym); /* at this stage, lref/cref/gref are not distinguished */
}
static pic_value static pic_value
analyze_define(analyze_state *state, pic_value obj) analyze_define(analyze_state *state, pic_value obj)
{ {
@ -635,15 +649,7 @@ analyze_node(analyze_state *state, pic_value obj, bool tailpos)
switch (pic_type(obj)) { switch (pic_type(obj)) {
case PIC_TT_SYMBOL: { case PIC_TT_SYMBOL: {
pic_sym sym = pic_sym(obj); return analyze_var(state, obj);
int depth;
depth = lookup_var(state, sym);
if (depth == -1) {
pic_errorf(pic, "unbound variable %s", pic_symbol_name(pic, sym));
}
/* at this stage, lref/cref/gref are not distinguished */
return new_ref(state, depth, sym);
} }
case PIC_TT_PAIR: { case PIC_TT_PAIR: {
pic_value proc; pic_value proc;