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

fix some bugs

This commit is contained in:
Yuichi Nishiwaki 2014-01-18 22:36:02 -08:00
parent 14eb6b334d
commit 6dcf04d50c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/codegen.c
View File

@ -160,7 +160,8 @@ push_scope(analyze_state *state, pic_value args)
scope->local_tbl = x = xh_new();
scope->varg = false;
i = 1; l = 0;
i = 1;
l = 0;
for (v = args; pic_pair_p(v); v = pic_cdr(pic, v)) {
pic_value sym;
@ -180,6 +181,8 @@ push_scope(analyze_state *state, pic_value args)
scope->argc = i;
scope->localc = l;
scope->dirty_flags = (int *)pic_calloc(pic, i + l, sizeof(int));
state->scope = scope;
}
static void
@ -627,7 +630,7 @@ analyze_call(analyze_state *state, pic_value obj, bool tailpos)
call = state->sTAILCALL;
}
seq = pic_list(pic, 1, pic_symbol_value(call));
for (; ! pic_nil_p(seq); obj = pic_cdr(pic, obj)) {
for (; ! pic_nil_p(obj); obj = pic_cdr(pic, obj)) {
seq = pic_cons(pic, analyze(state, pic_car(pic, obj), false), seq);
}
seq = pic_reverse(pic, seq);