Allow derivatives to work even if the symbol they're acting on hasn't…

… been defined as a tensor
ianhinder · Mar 7, 2014 · 95d6782 · 95d6782
1 parent e3c0992
commit 95d6782
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Tools/CodeGen/xTensorKranc.m b/Tools/CodeGen/xTensorKranc.m
@@ -185,6 +185,8 @@
     pd_?CovDQ[i__][pd_?CovDQ[j__][t_]] :> pd[j, i][t],
     nd_[pd_?CovDQ[i : (_?CIndexQ ..)][t_?xTensorQ[inds___]]] :>
      NumericalDiscretisation[nd][krancForm[t[inds]], Sequence @@ ({i}[[All, 1]])],
+    nd_[pd_?CovDQ[i : (_?CIndexQ ..)][t_Symbol]] :>
+     NumericalDiscretisation[nd][krancForm[t], Sequence @@ ({i}[[All, 1]])],
     t_Symbol?xTensorQ[i : (_?CIndexQ ..)] :> 
      SymbolJoin[t, Sequence @@ ToString /@ {i}[[All, 1]]],
     t_Symbol?xTensorQ[] :> t