From: Jens Vollinga <vollinga@thep.physik.uni-mainz.de>
Date: Tue, 12 Dec 2006 21:58:51 +0000 (+0000)
Subject: Bug fix for tensor::replace_contr_index().
X-Git-Tag: release_1-4-0~42
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=9f86a69017e43c8054ee28e022183f224c6a077b

Bug fix for tensor::replace_contr_index().
---

diff --git a/ginac/tensor.cpp b/ginac/tensor.cpp
index c215237d..25935f42 100644
--- a/ginac/tensor.cpp
+++ b/ginac/tensor.cpp
@@ -395,6 +395,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)) {