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

diff --git a/ginac/indexed.cpp b/ginac/indexed.cpp
index a52d6d77dc52b58b3e44f19531faac6ee7cc749e..e32f4c7a103f047cc09a5332665b7ef0e6c91ef8 100644 (file)
--- 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 {