--- rpl/src/instructions_n1.c	2013/03/20 22:24:36	1.45
+++ rpl/src/instructions_n1.c	2013/03/24 23:11:30	1.46
@@ -120,7 +120,7 @@ instruction_neg(struct_processus *s_etat
 		}
 
 		/*
-		 * Permet d'éviter les résultats du type -0. Valable pour tous
+		 * Permet d'éviter les résultats du type -0. Valable pour tous
 		 * les types...
 		 */
 
@@ -133,7 +133,7 @@ instruction_neg(struct_processus *s_etat
 
 /*
 --------------------------------------------------------------------------------
-  Opposition d'un réel
+  Opposition d'un réel
 --------------------------------------------------------------------------------
 */
 
@@ -217,7 +217,7 @@ instruction_neg(struct_processus *s_etat
 
 /*
 --------------------------------------------------------------------------------
-  Opposition d'un vecteur de réels
+  Opposition d'un vecteur de réels
 --------------------------------------------------------------------------------
 */
 
@@ -320,7 +320,7 @@ instruction_neg(struct_processus *s_etat
 
 /*
 --------------------------------------------------------------------------------
-  Opposition d'une matrice de réels
+  Opposition d'une matrice de réels
 --------------------------------------------------------------------------------
 */
 
@@ -1084,7 +1084,7 @@ instruction_ne(struct_processus *s_etat_
 
 /*
 --------------------------------------------------------------------------------
-  SAME NOT sur des valeurs numériques
+  SAME NOT sur des valeurs numériques
 --------------------------------------------------------------------------------
 */
 
@@ -1182,7 +1182,7 @@ instruction_ne(struct_processus *s_etat_
 
 /*
 --------------------------------------------------------------------------------
-  SAME NOT portant sur des chaînes de caractères
+  SAME NOT portant sur des chaînes de caractères
 --------------------------------------------------------------------------------
 */
 
@@ -1206,7 +1206,7 @@ instruction_ne(struct_processus *s_etat_
 --------------------------------------------------------------------------------
 */
 	/*
-	 * Il y a de la récursivité dans l'air...
+	 * Il y a de la récursivité dans l'air...
 	 */
 
 	else if ((((*s_objet_argument_1).type == LST) &&
@@ -1334,7 +1334,7 @@ instruction_ne(struct_processus *s_etat_
 	}
 
 	/*
-	 * Vecteurs de réels
+	 * Vecteurs de réels
 	 */
 
 	else if (((*s_objet_argument_1).type == VRL) &&
@@ -1462,7 +1462,7 @@ instruction_ne(struct_processus *s_etat_
 	}
 
 	/*
-	 * Matrice de réels
+	 * Matrice de réels
 	 */
 
 	else if (((*s_objet_argument_1).type == MRL) &&
@@ -1564,7 +1564,7 @@ instruction_ne(struct_processus *s_etat_
 */
 
 	/*
-	 * Nom ou valeur numérique / Nom ou valeur numérique
+	 * Nom ou valeur numérique / Nom ou valeur numérique
 	 */
 
 	else if ((((*s_objet_argument_1).type == NOM) &&
@@ -1701,7 +1701,7 @@ instruction_ne(struct_processus *s_etat_
 	}
 
 	/*
-	 * Nom ou valeur numérique / Expression
+	 * Nom ou valeur numérique / Expression
 	 */
 
 	else if (((((*s_objet_argument_1).type == ALG) ||
@@ -1793,7 +1793,7 @@ instruction_ne(struct_processus *s_etat_
 	}
 
 	/*
-	 * Expression / Nom ou valeur numérique
+	 * Expression / Nom ou valeur numérique
 	 */
 
 	else if ((((*s_objet_argument_1).type == NOM) ||
@@ -2124,7 +2124,7 @@ instruction_next(struct_processus *s_eta
 		 * Pour une boucle avec indice, on fait pointer 
 		 * (*(*s_etat_processus).l_base_pile_systeme).indice_boucle sur
 		 * la variable correspondante. Remarque, le contenu de la variable
-		 * est détruit au courant de l'opération.
+		 * est détruit au courant de l'opération.
 		 */
 
 		if (presence_compteur == d_vrai)
@@ -2158,7 +2158,7 @@ instruction_next(struct_processus *s_eta
 		/*
 		 * Empilement pour calculer le nouvel indice. Au passage, la
 		 * variable (*(*s_etat_processus).l_base_pile_systeme).indice_boucle
-		 * est libérée.
+		 * est libérée.
 		 */
 
 		if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
@@ -2205,7 +2205,7 @@ instruction_next(struct_processus *s_eta
 		if (presence_compteur == d_vrai)
 		{
 			/*
-			 * L'addition crée si besoin une copie de l'objet
+			 * L'addition crée si besoin une copie de l'objet
 			 */
 
 			(*(*s_etat_processus).l_base_pile_systeme).indice_boucle = NULL;
@@ -2301,7 +2301,7 @@ instruction_next(struct_processus *s_eta
 	{ // FORALL
 		if ((*(*(*s_etat_processus).l_base_pile_systeme).limite_indice_boucle)
 				.type == NON)
-		{ // L'objet initial était vide.
+		{ // L'objet initial était vide.
 			(*s_etat_processus).niveau_courant--;
 			depilement_pile_systeme(s_etat_processus);