wrong FOLD_ARGS impl

2014-01-27 22:20:31 +09:00
parent 8255e11486
commit b5cf174b5c
1 changed files with 1 additions and 1 deletions
@@ -447,7 +447,7 @@ analyze_node(analyze_state *state, pic_value obj, bool tailpos)

 #define FOLD_ARGS(sym) do {                                             \
        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,            \
                         analyze(state, pic_car(pic, args), false));    \
        }                                                               \