From 29b2d8426815dcd9cf4d9f133999df4a0616a8ac Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Thu, 20 Feb 2014 17:10:55 +0900
Subject: [PATCH] show invalid application callee

---
 src/vm.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/vm.c b/src/vm.c
index cc96d7fe..4586af82 100644
--- a/src/vm.c
+++ b/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);