diff options
Diffstat (limited to 'lib/pile.c')
-rw-r--r-- | lib/pile.c | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -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")); } |