Don't allow indices to be used as tensor names

ianhinder · Mar 7, 2014 · dbf715e · dbf715e
1 parent 240d14d
commit dbf715e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Tools/CodeGen/xTensorKranc.m b/Tools/CodeGen/xTensorKranc.m
@@ -100,6 +100,8 @@
   KrancScalarQ[s] = True;
 ]];
 
+DefineTensor[(t_|t_[___]), ___] /; MemberQ[$KrancIndices, t] :=
+ ThrowError["Cannot use "<>SymbolName[t]<>" as a tensor as it is already used as a tensor index."];
 
 (*************************************************************)
 (* DefineDerivative *)