show invalid application callee

This commit is contained in:
Yuichi Nishiwaki 2014-02-20 17:10:55 +09:00
parent 2d0faff732
commit 29b2d84268
1 changed files with 1 additions and 4 deletions

View File

@ -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);