error when apply got non-proc at the first place of arguments
This commit is contained in:
parent
23ebe14da0
commit
066575fa1c
|
@ -43,6 +43,10 @@ pic_proc_apply(pic_state *pic)
|
|||
|
||||
pic_get_args(pic, "oo", &proc, &args);
|
||||
|
||||
if (! pic_proc_p(proc)) {
|
||||
pic_error(pic, "apply: expected procedure");
|
||||
}
|
||||
|
||||
return pic_apply(pic, pic_proc_ptr(proc), args);
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue