From 89eceec7f80ddc58efc9911c34416d2caa5024c8 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 9 Nov 2013 14:12:36 +0900
Subject: [PATCH] fix a bug that pic_apply faults when cfunc proc is given in
 DEBUG mode

---
 src/vm.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/vm.c b/src/vm.c
index 6a0392d2..482abf2f 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -282,8 +282,13 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
   printf("  argv = ");
   pic_debug(pic, argv);
   puts("");
-  printf("  irep = ");
-  print_irep(pic, proc->u.irep);
+  if (! proc->cfunc_p) {
+    printf("  irep = ");
+    print_irep(pic, proc->u.irep);
+  }
+  else {
+    printf("  cfunc = %p\n", proc->u.cfunc);
+  }
   puts("\nLet's go!");
 #endif