warn invalid application

2013-10-24 03:38:29 +09:00
parent d75b624b4a
commit a926c54be3
2 changed files with 6 additions and 0 deletions
@@ -19,6 +19,8 @@ struct pic_proc {
  pic_value aux;
 };

+#define pic_proc_p(o) (pic_type(o) == PIC_TT_PROC)
+
 #define pic_proc_ptr(o) ((struct pic_proc *)(o).u.data)

 #define pic_proc_cfunc_p(o) (pic_proc_ptr(o)->cfunc_p)