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

refactor analyze_var

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2014-03-20 11:44:12 +09:00
parent 0cb8920276
commit 6d6420f2b9
1 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/codegen.c
+15 -9
View File
@@ -281,6 +281,20 @@ analyze(analyze_state *state, pic_value obj, bool tailpos)
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
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)) {
case PIC_TT_SYMBOL: {
pic_sym sym = pic_sym(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);
return analyze_var(state, obj);
}
case PIC_TT_PAIR: {
pic_value proc;