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

wrong FOLD_ARGS impl

This commit is contained in:
Yuichi Nishiwaki 2014-01-27 22:20:31 +09:00
parent 8255e11486
commit b5cf174b5c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/codegen.c
View File

@ -447,7 +447,7 @@ analyze_node(analyze_state *state, pic_value obj, bool tailpos)
#define FOLD_ARGS(sym) do { \ #define FOLD_ARGS(sym) do { \
obj = analyze(state, pic_car(pic, args), false); \ obj = analyze(state, pic_car(pic, args), false); \
for (args = pic_cdr(pic, obj); ! pic_nil_p(args); args = pic_cdr(pic, args)) { \ for (args = pic_cdr(pic, args); ! pic_nil_p(args); args = pic_cdr(pic, args)) { \
obj = pic_list(pic, 3, pic_symbol_value(sym), obj, \ obj = pic_list(pic, 3, pic_symbol_value(sym), obj, \
analyze(state, pic_car(pic, args), false)); \ analyze(state, pic_car(pic, args), false)); \
} \ } \