--- rpl/src/rplexternals.h	2014/06/16 18:48:22	1.58
+++ rpl/src/rplexternals.h	2015/01/05 13:12:42	1.61
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.18
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.19
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -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"); \