--- rpl/src/sequenceur.c	2010/01/27 22:22:18	1.2
+++ rpl/src/sequenceur.c	2010/03/04 10:17:55	1.7
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.10
+  RPL/2 (R) version 4.0.12
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -25,7 +25,7 @@
 
 /*
 ================================================================================
-  Boucle principale de l'interpréteur RPL/2
+  Boucle principale de l'interprète RPL/2
 ================================================================================
   Entrées : structure sur l'état du processus
 --------------------------------------------------------------------------------
@@ -41,6 +41,7 @@ sequenceur(struct_processus *s_etat_proc
 	struct_liste_chainee		*l_element_courant;
 
 	struct_objet				*s_objet;
+	struct_objet				*s_objet_evaluation;
 	struct_objet				*s_sous_objet;
 
 	logical1					drapeau_appel_definition;
@@ -103,7 +104,7 @@ sequenceur(struct_processus *s_etat_proc
 
 /*
 --------------------------------------------------------------------------------
-  Boucle de l'interpréteur RPL/2
+  Boucle de l'interprète RPL/2
   On boucle tant qu'on n'a pas une bonne raison de sortir...
 --------------------------------------------------------------------------------
 */
@@ -282,8 +283,11 @@ sequenceur(struct_processus *s_etat_proc
 
 					tampon = (*s_etat_processus).instruction_courante;
 					(*s_etat_processus).instruction_courante = ligne;
+
 					recherche_type(s_etat_processus);
 
+					(*s_etat_processus).instruction_courante = tampon;
+
 					if ((((*s_etat_processus).erreur_execution != d_ex) ||
 							((*s_etat_processus).erreur_systeme != d_es)) &&
 							((*s_etat_processus).invalidation_message_erreur
@@ -433,8 +437,6 @@ sequenceur(struct_processus *s_etat_proc
 						(*(*s_etat_processus).l_base_pile_systeme)
 								.retour_definition = tampon_retour;
 					}
-
-					(*s_etat_processus).instruction_courante = tampon;
 				}
 				else if ((*s_etat_processus).invalidation_message_erreur
 						== d_faux)
@@ -497,7 +499,7 @@ sequenceur(struct_processus *s_etat_proc
 /*
 --------------------------------------------------------------------------------
   Dans le cas où une instruction est retournée, celle-ci est évaluée. Dans le
-  cas contraire, l'interpréteur renvoie un message d'erreur et s'interrompt.
+  cas contraire, l'interprète renvoie un message d'erreur et s'interrompt.
 --------------------------------------------------------------------------------
 */
 
@@ -805,6 +807,29 @@ sequenceur(struct_processus *s_etat_proc
 
 					(*s_etat_processus).erreur_systeme = d_es;
 					recherche_type(s_etat_processus);
+
+					// Le séquenceur est appelé depuis la routine d'évaluation
+
+					if ((*s_etat_processus).evaluation_forcee == 'Y')
+					{
+						if (depilement(s_etat_processus,
+								&((*s_etat_processus).l_base_pile),
+								&s_objet_evaluation) == d_erreur)
+						{
+							(*s_etat_processus).erreur_execution =
+									d_ex_manque_argument;
+							return(d_erreur);
+						}
+
+						if (evaluation(s_etat_processus, s_objet_evaluation,
+								'N') == d_erreur)
+						{
+							liberation(s_etat_processus, s_objet_evaluation);
+							return(d_erreur);
+						}
+
+						liberation(s_etat_processus, s_objet_evaluation);
+					}
 				}
 			}
 			else if (((*s_etat_processus).test_instruction == 'Y') &&