From 6b8f02426a4dd9358c7b35d34268db358fd113c3 Mon Sep 17 00:00:00 2001
From: biouman <biouman>
Date: Tue, 1 May 2001 09:48:02 +0000
Subject: *** empty log message ***

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

(limited to 'lib/pile.c')

diff --git a/lib/pile.c b/lib/pile.c
index 702f22d..5b98ef4 100644
--- a/lib/pile.c
+++ b/lib/pile.c
@@ -150,6 +150,7 @@ void act_pile(int func)
 {
 	pile_elem operande1, operande2;
 	char buf[50];
+	char valid;
 
 	sprintf(buf, _("Calling act_pile(%i)"), func);
 	pushcontext(buf);
@@ -269,6 +270,9 @@ void act_pile(int func)
 		operande2 = pop_pile(1);
 		if ((operande1.type == T_POLY) && (operande2.type == T_STRING)) {
 			if (operande2.label) {
+				NomVarToVar(operande2.label, variables, &valid);
+				if (valid)
+					SupprimerDansTab(&variables,operande2.label);
 				InsererVarDansTab(&variables, CreerElement(operande2.label, (void *) operande1.poly));
 				free(operande2.label);
 			} else {
-- 
cgit v1.2.3