From b5cf174b5c5c8abe5789f0fb92b921f735472ca2 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Mon, 27 Jan 2014 22:20:31 +0900 Subject: [PATCH] wrong FOLD_ARGS impl --- src/codegen.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/codegen.c b/src/codegen.c index c7380f56..e82db71e 100644 --- a/src/codegen.c +++ b/src/codegen.c @@ -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)); \ } \