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

apply' argument treatment was broken

This commit is contained in:
Yuichi Nishiwaki 2014-02-04 14:33:36 +09:00
parent 96fc08dd0b
commit 2ed2b503a6
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/proc.c
View File

@ -86,7 +86,7 @@ static pic_value
pic_proc_apply(pic_state *pic) pic_proc_apply(pic_state *pic)
{ {
struct pic_proc *proc; struct pic_proc *proc;
pic_value *args; pic_value *args, arg_list;
size_t argc; size_t argc;
pic_get_args(pic, "l*", &proc, &argc, &args); pic_get_args(pic, "l*", &proc, &argc, &args);
@ -94,8 +94,11 @@ pic_proc_apply(pic_state *pic)
if (argc == 0) { if (argc == 0) {
pic_error(pic, "apply: wrong number of arguments"); pic_error(pic, "apply: wrong number of arguments");
} }
arg_list = args[--argc];
return pic_apply(pic, proc, pic_list_by_array(pic, argc, args)); while (argc--) {
arg_list = pic_cons(pic, args[argc], arg_list);
}
return pic_apply(pic, proc, arg_list);
} }
static pic_value static pic_value