show invalid application callee
This commit is contained in:
parent
2d0faff732
commit
29b2d84268
5
src/vm.c
5
src/vm.c
|
@ -537,10 +537,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
|
|||
L_CALL:
|
||||
x = pic->sp[-c.u.i];
|
||||
if (! pic_proc_p(x)) {
|
||||
#if DEBUG
|
||||
pic_debug(pic, x);
|
||||
#endif
|
||||
pic_error(pic, "invalid application");
|
||||
pic_errorf(pic, "invalid application: ~S", x);
|
||||
}
|
||||
proc = pic_proc_ptr(x);
|
||||
|
||||
|
|
Loading…
Reference in New Issue