From: Christian Bauer <Christian.Bauer@uni-mainz.de>
Date: Thu, 21 Nov 2002 19:22:39 +0000 (+0000)
Subject: fixed a bug in the dummy index symmetrization [Chris Dams]
X-Git-Tag: release_1-0-13~18
X-Git-Url: https://ginac.de/ginac.git//ginac.git?a=commitdiff_plain;h=e93f20fd0deb9b45d2163cbec247e5181f021a28;p=ginac.git

fixed a bug in the dummy index symmetrization [Chris Dams]
---

diff --git a/ginac/indexed.cpp b/ginac/indexed.cpp
index a52d6d77..e32f4c7a 100644
--- a/ginac/indexed.cpp
+++ b/ginac/indexed.cpp
@@ -820,13 +820,13 @@ public:
 
 	symminfo(const ex & symmterm_, const ex & orig_)
 	{
-		if (is_a<mul>(orig_)) {
+		if (is_a<mul>(orig_) && is_a<numeric>(orig_.op(orig_.nops()-1))) {
 			ex tmp = orig_.op(orig_.nops()-1);
 			orig = orig_ / tmp;
 		} else 
 			orig = orig_;
 
-		if (is_a<mul>(symmterm_)) {
+		if (is_a<mul>(symmterm_) && is_a<numeric>(symmterm_.op(symmterm_.nops()-1))) {
 			coeff = symmterm_.op(symmterm_.nops()-1);
 			symmterm = symmterm_ / coeff;
 		} else {