show invalid application callee

2014-02-20 17:10:55 +09:00
parent 2d0faff732
commit 29b2d84268
1 changed files with 1 additions and 4 deletions
@@ -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);