Synced to HEAD:

Bug fix for tensor::replace_contr_index().

diff --git a/ginac/tensor.cpp b/ginac/tensor.cpp
index 1a8f8e4041e542661e83b7190bfb2bd34fb052dd..cb93ada2253bd62b18a6627f89559bdfdc259069 100644 (file)
--- a/ginac/tensor.cpp
+++ b/ginac/tensor.cpp
@@ -355,6 +355,8 @@ bool tensor::replace_contr_index(exvector::iterator self, exvector::iterator oth
 again:
        if (self_idx->is_symbolic()) {
                for (size_t i=1; i<other->nops(); i++) {
+                       if (! is_a<idx>(other->op(i)))
+                               continue;
                        const idx &other_idx = ex_to<idx>(other->op(i));
                        if (is_dummy_pair(*self_idx, other_idx)) {