let the printer output proc objects and unknown values

This commit is contained in:
Yuichi Nishiwaki 2013-10-14 17:35:01 +09:00
parent c706d4f326
commit 22414b61e8
1 changed files with 6 additions and 0 deletions

View File

@ -26,5 +26,11 @@ pic_debug(pic_state *pic, pic_value obj)
case PIC_TT_UNDEF: case PIC_TT_UNDEF:
printf("#<undef>"); printf("#<undef>");
break; break;
case PIC_TT_PROC:
printf("#<proc %p>", pic_proc_ptr(obj));
break;
default:
printf("#<unknown type>");
break;
} }
} }