aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan Hinder <ian.hinder@aei.mpg.de>2012-02-06 19:24:12 -0600
committerIan Hinder <ian.hinder@aei.mpg.de>2012-02-06 19:24:12 -0600
commita8f4bbf98c7248512d259be7264b62d851eaaf42 (patch)
tree1b96706de2e57081c41ab58373d0358df3f0ec2f
parent3cc6aee48df9407f27df03237911bb4279cddcd5 (diff)
KrancScript.m: Handle derivative name in parse tree
-rw-r--r--Tools/CodeGen/KrancScript.m4
1 files changed, 2 insertions, 2 deletions
diff --git a/Tools/CodeGen/KrancScript.m b/Tools/CodeGen/KrancScript.m
index e728f14..282628e 100644
--- a/Tools/CodeGen/KrancScript.m
+++ b/Tools/CodeGen/KrancScript.m
@@ -116,8 +116,8 @@ Do[
process["tensor"["name"[k_],inds_]] :=
tensor[ToExpression[If[Names[k] === {}, "Global`"<>k, k]],Sequence@@process[inds]];
-process["dtensor"[inds_,tensor_]] := PD[process[tensor],Sequence@@process[inds]];
-process["dtensor"["indices"["lower_index"["index_symbol"["t"]]],tensor_]] :=
+process["dtensor"["dname"[dname_],inds_,tensor_]] := ToExpression[dname][process[tensor],Sequence@@process[inds]];
+process["dtensor"["dname"["D"], "indices"["lower_index"["index_symbol"["t"]]],tensor_]] :=
dot[process[tensor]];
process["indices"[inds___]] := Map[process, {inds}];