--- rpl/src/evaluation.c	2010/03/09 10:18:43	1.8
+++ rpl/src/evaluation.c	2010/05/24 10:58:29	1.17
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.13
+  RPL/2 (R) version 4.0.16
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -143,6 +143,34 @@ evaluation(struct_processus *s_etat_proc
 			if (recherche_variable(s_etat_processus, (*((struct_nom *)
 					(*s_objet_tampon).objet)).nom) == d_faux)
 			{
+				(*s_etat_processus).erreur_execution = d_ex;
+
+				if ((*s_etat_processus).autorisation_nom_implicite == 'N')
+				{
+					if ((*((struct_nom *) (*s_objet_tampon).objet)).symbole ==
+							d_faux)
+					{
+						if (test_cfsf(s_etat_processus, 31) == d_vrai)
+						{
+							if (empilement_pile_last(s_etat_processus, 0)
+									== d_erreur)
+							{
+								return(d_erreur);
+							}
+						}
+
+						erreur_evaluation = d_erreur;
+						(*s_etat_processus).erreur_execution =
+								d_ex_nom_implicite;
+
+						if (type_evaluation == 'I')
+						{
+							(*s_etat_processus).derniere_erreur_evaluation =
+									(*s_etat_processus).erreur_execution;
+						}
+					}
+				}
+
 				(*s_etat_processus).erreur_systeme = d_es;
 				presence_variable = d_faux;
 			}
@@ -463,10 +491,10 @@ evaluation(struct_processus *s_etat_proc
 				(*s_etat_processus).evaluation_expression_compilee =
 						registre_evaluation_expression_compilee;
 			}
-			else
+			else if ((*s_etat_processus).erreur_execution != d_ex_nom_implicite)
 			{
 				if ((s_objet_tampon = copie_objet(s_etat_processus,
-						s_objet, 'P')) == NULL)
+						s_objet, 'Q')) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -484,12 +512,6 @@ evaluation(struct_processus *s_etat_proc
 							instruction_courante;
 					return(d_erreur);
 				}
-
-				if ((*s_etat_processus).erreur_execution ==
-						d_ex_variable_non_definie)
-				{
-					(*s_etat_processus).erreur_execution = d_ex;
-				}
 			}
 		}
 		else
@@ -807,8 +829,9 @@ evaluation(struct_processus *s_etat_proc
 
 							free(message);
 
-							while((*(*s_etat_processus).l_base_pile_systeme)
-									.clause != 'R')
+							drapeau_then = d_faux;
+
+							while(drapeau_then == d_faux)
 							{
 								l_registre_atome = l_element_courant;
 								l_element_courant =
@@ -970,66 +993,28 @@ evaluation(struct_processus *s_etat_proc
 												}
 											}
 										}
+										else if (TEST(instruction_then))
+										{
+											if ((*(*s_etat_processus)
+													.l_base_pile_systeme)
+													.clause == 'R')
+											{
+												(*(*s_etat_processus)
+														.l_base_pile_systeme)
+														.clause = 'X';
+												instruction_then(
+														s_etat_processus);
+												drapeau_then = d_vrai;
+											}
+										}
 									}
 								}
 							}
 
+							(*s_etat_processus).expression_courante =
+									l_element_courant;
 							(*s_etat_processus).instruction_courante =
 									instruction_courante;
-							drapeau_then = d_faux;
-
-							do
-							{
-								l_registre_atome = l_element_courant;
-
-								if (l_element_courant == NULL)
-								{
-									/*
-									 * La fin de l'expression est atteinte,
-									 * le sequenceur reprend la main.
-									 */
-
-									if (presence_egalite == d_vrai)
-									{
-										liberation(s_etat_processus,
-												s_objet_evalue);
-									}
-
-									(*s_etat_processus)
-											.mode_execution_programme =
-											registre_mode_execution_programme;
-									(*s_etat_processus).instruction_courante =
-											instruction_courante;
-									return(d_absence_erreur);
-								}
-
-								if ((*(*l_element_courant).donnee).type == FCT)
-								{
-									(*s_etat_processus)
-											.instruction_courante =
-											(*((struct_fonction *)
-											(*(*l_element_courant).donnee)
-											.objet)).nom_fonction;
-									fonction = (*((struct_fonction *)
-											(*(*l_element_courant).donnee)
-											.objet)).fonction;
-									(*s_etat_processus).instruction_courante =
-											instruction_courante;
-
-									drapeau_then = TEST(instruction_then)
-											? d_vrai : d_faux;
-								}
-
-								l_element_courant = (*l_element_courant)
-										.suivant;
-							} while(drapeau_then == d_faux);
-
-							(*s_etat_processus).expression_courante =
-									l_registre_atome;
-
-							(*(*s_etat_processus).l_base_pile_systeme)
-									.clause = 'X';
-							instruction_then(s_etat_processus);
 
 							(*s_etat_processus).exception = d_ep;
 							(*s_etat_processus).erreur_execution = d_ex;
@@ -1283,6 +1268,14 @@ evaluation(struct_processus *s_etat_proc
 														instruction_courante;
 													return(d_erreur);
 												}
+
+												if ((*(*s_etat_processus)
+														.l_base_pile_systeme)
+														.retour_definition
+														== 'Y')
+												{
+													break;
+												}
 											}
 											else
 											{
@@ -4002,7 +3995,7 @@ evaluation(struct_processus *s_etat_proc
 								{
 									/*
 									 * La fin de l'expression est atteinte,
-									 * le sequenceur reprend la main.
+									 * le séquenceur reprend la main.
 									 */
 
 									if (presence_egalite == d_vrai)
@@ -4383,6 +4376,35 @@ evaluation(struct_processus *s_etat_proc
 					{
 						(*s_etat_processus).erreur_systeme = d_es;
 						presence_variable = d_faux;
+
+						if ((*s_etat_processus).autorisation_nom_implicite
+								== 'N')
+						{
+							if ((*((struct_nom *) (*s_objet_elementaire).objet))
+									.symbole == d_faux)
+							{
+								if (test_cfsf(s_etat_processus, 31) == d_vrai)
+								{
+									if (empilement_pile_last(s_etat_processus,
+											0) == d_erreur)
+									{
+										return(d_erreur);
+									}
+								}
+
+								erreur_evaluation = d_erreur;
+								(*s_etat_processus).erreur_execution =
+										d_ex_nom_implicite;
+
+								if (type_evaluation == 'I')
+								{
+									(*s_etat_processus)
+											.derniere_erreur_evaluation =
+											(*s_etat_processus)
+											.erreur_execution;
+								}
+							}
+						}
 					}
 					else
 					{
@@ -4765,6 +4787,7 @@ evaluation(struct_processus *s_etat_proc
 
 									(*(*s_etat_processus).l_base_pile_systeme)
 											.niveau_courant =
+											registre_niveau_courant;
 									(*(*s_etat_processus).l_base_pile_systeme)
 											.retour_definition =
 											registre_retour_definition;
@@ -4795,6 +4818,7 @@ evaluation(struct_processus *s_etat_proc
 
 								(*(*s_etat_processus).l_base_pile_systeme)
 										.niveau_courant =
+										registre_niveau_courant;
 								(*(*s_etat_processus).l_base_pile_systeme)
 										.retour_definition =
 									   	registre_retour_definition;
@@ -5076,6 +5100,10 @@ evaluation(struct_processus *s_etat_proc
 							((*s_etat_processus).erreur_execution != d_ex) ||
 							((*s_etat_processus).exception != d_ep))
 					{
+						// Il est anormal de récupérer ici une erreur
+						// d'exécution puisqu'on empile une constante
+						// symbolique.
+
 						if (presence_egalite == d_vrai)
 						{
 							liberation(s_etat_processus, s_objet_evalue);