Pouet

1 files changed, 8 insertions, 0 deletions

diff --git a/lib/pile.c b/lib/pile.c
index a42f75f..dd43a6e 100644
--- a/lib/pile.c
+++ b/lib/pile.c
@@ -149,6 +149,8 @@ void flush_pile(void)
 
 void move_to_resultat_pile(void)
 {	pile_elem temp;
+	char valid;
+	polynome t;
 
 	pushcontext(_("move_to_resultat_pile()"));
 	if (pile_ptr) {
@@ -157,6 +159,12 @@ void move_to_resultat_pile(void)
 			if (temp.type==T_POLY) {
 				result_pile[result_pile_ptr]=temp;
 				result_pile_ptr++;
+				t = NomVarToVar("ANS", variables, &valid);
+				if (valid) {
+					ply_destruct(t);
+					SupprimerDansTab(&variables, "ANS");
+				}
+				InsererVarDansTab(&variables, CreerElement("ANS", (void *) (ply_copy(temp.poly))));
 			} else {
 				exception(1, _("move_to_resultat_pile: invalid argument type"));
 			}