+#define def_community(TYPE,INTERFACE) def_obj(TYPE) { INTERFACE __interface; };
+/* ---- variable declarators -------------------------------------------- */
+#define Get_obj(ID,MEM,...) MEM ID=get_obj(MEM,__VA_ARGS__)
+#define Get_obj_as(ID,COMMUNITY,MEM,...) MEM ID=get_obj_as(COMMUNITY,MEM,INTERFACE,__VA_ARGS__)
+#define I_am(SELF,MEM) MEM SELF=(MEM)community
+/* .----------------------------------------------------------------------.
+ / 9. C<<1 setjmp()/longjmp() based exceptions, updated 2008-09-30
+ '----------------------------------------------------------------------- */
+#define FAILED_TO_FAIL -273
+#define SYSTEM_FAILURE -1
+#define LOCAL_FAILURE 13
+#define LIBRARY_FAILURE 23
+#define EVIL_FAILURE 666
+#define try _NEW(E,0) if(!(_E=setjmp(_EENV)))
+#define fail(E) longjmp(_EENV,((E)>0?(E):FAILED_TO_FAIL))
+#define pass_failure (_Eatom->__next?longjmp((pop(_Eatom,_Estack),_EENV),_E):_SYSFAIL(FAILED_TO_FAIL))
+#define else_switch_failures else switch(_E)
+#define else_catch(E) else if (_E==(E))