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

get rid of redundant symbol to value cast

This commit is contained in:
Yuichi Nishiwaki 2014-03-28 12:07:02 +09:00
parent c86c153e53
commit 010ee9ddb6
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/codegen.c
View File

@ -324,13 +324,11 @@ analyze_free_var(analyze_state *state, pic_sym sym, int depth)
} }
static pic_value static pic_value
analyze_var(analyze_state *state, pic_value obj) analyze_var(analyze_state *state, pic_sym sym)
{ {
pic_state *pic = state->pic; pic_state *pic = state->pic;
pic_sym sym;
int depth; int depth;
sym = pic_sym(obj);
if ((depth = find_var(state, sym)) == -1) { if ((depth = find_var(state, sym)) == -1) {
pic_errorf(pic, "unbound variable %s", pic_symbol_name(pic, sym)); pic_errorf(pic, "unbound variable %s", pic_symbol_name(pic, sym));
} }
@ -410,7 +408,7 @@ analyze_declare(analyze_state *state, pic_sym var)
{ {
define_var(state, var); define_var(state, var);
return analyze_var(state, pic_sym_value(var)); return analyze_var(state, var);
} }
static pic_value static pic_value
@ -708,7 +706,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: {
return analyze_var(state, obj); return analyze_var(state, pic_sym(obj));
} }
case PIC_TT_PAIR: { case PIC_TT_PAIR: {
pic_value proc; pic_value proc;