From 291b9695368ada660678b334a7d73fd70ada1fb8 Mon Sep 17 00:00:00 2001
From: Pixel <Pixel>
Date: Wed, 2 May 2001 20:38:57 +0000
Subject: Pouet

---
 lib/pile.c | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lib/pile.c')

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"));
 			}
-- 
cgit v1.2.3