--- rpl/src/rplexternals.h	2014/06/16 18:48:22	1.58
+++ rpl/src/rplexternals.h	2014/06/16 19:24:59	1.59
@@ -977,6 +977,10 @@
 	} \
 	else executionError("Type mistmatch error"); } while(0)
 
+#define setSymbolicName(rpl_object, value) do { \
+	setName(rpl_object, value); \
+	(*((struct_nom *) (*rpl_object).objet)).symbole = d_vrai; } while(0)
+
 #define createNameObject(rpl_object) do { \
 	if (rpl_object != NULL) \
 		systemError("Reallocated object"); \