--- rpl/src/sequenceur.c	2013/04/18 21:38:04	1.74
+++ rpl/src/sequenceur.c	2015/02/01 09:47:44	1.87
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.14
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.20
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -197,12 +197,6 @@ sequenceur(struct_processus *s_etat_proc
 				funlockfile(stdin);
 				funlockfile(stdout);
 
-				if ((*s_etat_processus).var_volatile_requete_arret != 0)
-				{
-					(*s_etat_processus).requete_arret = 'Y';
-					break;
-				}
-
 				if (ligne != NULL)
 				{
 					if ((t_ligne = transliteration(s_etat_processus, ligne,
@@ -216,7 +210,7 @@ sequenceur(struct_processus *s_etat_proc
 					free(ligne);
 					ligne = t_ligne;
 
-					if ((ligne = compactage(ligne)) == NULL)
+					if ((ligne = compactage(s_etat_processus, ligne)) == NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
 								d_es_allocation_memoire;
@@ -265,6 +259,13 @@ sequenceur(struct_processus *s_etat_proc
 					sprintf(ligne, "dup");
 				}
 
+				if ((*s_etat_processus).var_volatile_requete_arret != 0)
+				{
+					free(ligne);
+					(*s_etat_processus).requete_arret = 'Y';
+					break;
+				}
+
 				add_history(ligne);
 				stifle_history(ds_longueur_historique);
 
@@ -295,6 +296,7 @@ sequenceur(struct_processus *s_etat_proc
 					tampon = (*s_etat_processus).instruction_courante;
 					(*s_etat_processus).instruction_courante = ligne;
 
+					(*s_etat_processus).type_en_cours = NON;
 					recherche_type(s_etat_processus);
 
 					(*s_etat_processus).instruction_courante = tampon;
@@ -333,6 +335,8 @@ sequenceur(struct_processus *s_etat_proc
 					}
 					else
 					{
+						position_courante =
+								(*s_etat_processus).position_courante;
 						empilement_pile_systeme(s_etat_processus);
 
 						if ((*s_etat_processus).erreur_systeme != d_es)
@@ -456,6 +460,9 @@ sequenceur(struct_processus *s_etat_proc
 						{	
 							liberation(s_etat_processus, s_objet);
 						}
+
+						(*s_etat_processus).position_courante =
+								position_courante;
 					}
 				}
 				else if ((*s_etat_processus).invalidation_message_erreur
@@ -792,14 +799,17 @@ sequenceur(struct_processus *s_etat_proc
 */
 
 					(*s_etat_processus).erreur_systeme = d_es;
+					(*s_etat_processus).type_en_cours = NON;
 					recherche_type(s_etat_processus);
 
 					if ((*s_etat_processus).autorisation_nom_implicite == 'N')
 					{
 						if ((*s_etat_processus).l_base_pile == NULL)
 						{
-							if ((*s_etat_processus).erreur_execution !=
-									d_ex_nom_implicite)
+							if (((*s_etat_processus).erreur_execution !=
+									d_ex_nom_implicite) &&
+									((*s_etat_processus).erreur_execution !=
+									d_ex_syntaxe))
 							{
 								(*s_etat_processus).erreur_execution =
 										d_ex_manque_argument;
@@ -879,7 +889,8 @@ sequenceur(struct_processus *s_etat_proc
 */
 
 				if ((instruction_majuscule = conversion_majuscule(
-						(*s_etat_processus).instruction_courante)) == NULL)
+						s_etat_processus, (*s_etat_processus)
+						.instruction_courante)) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -904,8 +915,8 @@ sequenceur(struct_processus *s_etat_proc
 					{
 						if (((*((struct_fonction *) (*s_objet).objet))
 								.nom_fonction = conversion_majuscule(
-								(*s_etat_processus).instruction_courante))
-								== NULL)
+								s_etat_processus, (*s_etat_processus)
+								.instruction_courante)) == NULL)
 						{
 							(*s_etat_processus).erreur_systeme =
 									d_es_allocation_memoire;
@@ -1190,7 +1201,8 @@ sequenceur(struct_processus *s_etat_proc
 					{
 						(*s_etat_processus).erreur_systeme = d_es;
 						instruction_majuscule = conversion_majuscule(
-								(*s_etat_processus).instruction_courante);
+								s_etat_processus, (*s_etat_processus)
+								.instruction_courante);
 
 						if (instruction_majuscule == NULL)
 						{
@@ -1378,6 +1390,7 @@ sequenceur(struct_processus *s_etat_proc
 					}
 					
 					instruction_majuscule = conversion_majuscule(
+							s_etat_processus,
 							(*s_etat_processus).instruction_courante);
 
 					if (instruction_majuscule == NULL)