apply is broken with arg_list is nil

This commit is contained in:
Yuichi Nishiwaki 2014-02-06 13:04:11 +09:00
parent 9f21c8d7b1
commit 613f692c09
1 changed files with 1 additions and 1 deletions

View File

@ -102,7 +102,7 @@ pic_proc_apply(pic_state *pic)
arg_list = pic_cons(pic, args[argc], arg_list); arg_list = pic_cons(pic, args[argc], arg_list);
} }
*pic->ci->fp++ = pic_obj_value(proc); arg_list = pic_cons(pic, pic_obj_value(proc), arg_list);
pic_for_each (v, arg_list) { pic_for_each (v, arg_list) {
*pic->ci->fp++ = v; *pic->ci->fp++ = v;
} }