--- rpl/src/rplexternals.h	2017/06/29 14:54:42	1.75
+++ rpl/src/rplexternals.h	2017/06/30 13:11:26	1.76
@@ -89,13 +89,14 @@
 			if ((ptr != rptr) && (iptr)) goto __parse_error;
 #define parseError	{ goto __parse_error; } while(0)
 #define typeError { return(0); } while(0)
+#define typeSuccess { return(1); } while(0)
 #define typeFound(a) { return(a); } while(0)
 #define endTypeExtension __parse_error: return(0); }
 #define sizeOfParse	(rptr - ptr)
-#define searchType { recherche_type(s_etat_processus); \
+#define searchType(...) { recherche_type(s_etat_processus); \
 			if (((*s_etat_processus).erreur_execution != d_ex) || \
 					((*s_etat_processus).erreur_systeme != d_es)) \
-					return(0); } while(0)
+				{ __VA_ARGS__; return(0); } } while(0)
 
 /*
 --------------------------------------------------------------------------------