error when argument of apply is not a proper list
This commit is contained in:
parent
9a1e7d0ab1
commit
4fea9169cc
4
src/vm.c
4
src/vm.c
|
@ -301,6 +301,10 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
|
||||||
goto L_RAISE;
|
goto L_RAISE;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if (! pic_list_p(pic, argv)) {
|
||||||
|
pic_error(pic, "argv must be a proper list");
|
||||||
|
}
|
||||||
|
|
||||||
argc = pic_length(pic, argv) + 1;
|
argc = pic_length(pic, argv) + 1;
|
||||||
|
|
||||||
#if VM_DEBUG
|
#if VM_DEBUG
|
||||||
|
|
Loading…
Reference in New Issue