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

analyze in order

This commit is contained in:
Yuichi Nishiwaki 2014-02-08 03:17:49 +09:00
parent 968c0b53df
commit b0d955c771
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/codegen.c
View File

@ -342,7 +342,7 @@ analyze_node(analyze_state *state, pic_value obj, bool tailpos)
return analyze_lambda(state, obj); return analyze_lambda(state, obj);
} }
else if (sym == pic->sIF) { else if (sym == pic->sIF) {
pic_value if_true, if_false; pic_value cond, if_true, if_false;
if_false = pic_none_value(); if_false = pic_none_value();
switch (pic_length(pic, obj)) { switch (pic_length(pic, obj)) {
@ -356,11 +356,12 @@ analyze_node(analyze_state *state, pic_value obj, bool tailpos)
if_true = pic_list_ref(pic, obj, 2); if_true = pic_list_ref(pic, obj, 2);
} }
return pic_list(pic, 4, /* analyze in order */
pic_symbol_value(pic->sIF), cond = analyze(state, pic_list_ref(pic, obj, 1), false);
analyze(state, pic_list_ref(pic, obj, 1), false), if_true = analyze(state, if_true, tailpos);
analyze(state, if_true, tailpos), if_false = analyze(state, if_false, tailpos);
analyze(state, if_false, tailpos));
return pic_list(pic, 4, pic_symbol_value(pic->sIF), cond, if_true, if_false);
} }
else if (sym == pic->sBEGIN) { else if (sym == pic->sBEGIN) {
pic_value seq; pic_value seq;