From 2f24e11cb53c348b48eb977912371797d8ece06b Mon Sep 17 00:00:00 2001
From: biouman <biouman>
Date: Wed, 2 May 2001 23:24:53 +0000
Subject: *** empty log message ***

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

(limited to 'lib/pile.c')

diff --git a/lib/pile.c b/lib/pile.c
index 11f1327..2920139 100644
--- a/lib/pile.c
+++ b/lib/pile.c
@@ -352,7 +352,9 @@ void act_pile(int func)
 					exception(1, _("act_pile: OP_EXP invalid power"));
 				}
 			} else {
-				exception(1, _("act_pile: OP_EXP empty polynom"));
+				push_pile_poly(ply_constr(rat_constr(1,1),0));
+				if (operande2.poly)
+					ply_destruct(operande2.poly);		
 			}
 		} else {
 			exception(1, _("act_pile: OP_EXP invalid arguments"));
-- 
cgit v1.2.3