From a8f4bbf98c7248512d259be7264b62d851eaaf42 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Mon, 6 Feb 2012 19:24:12 -0600 Subject: KrancScript.m: Handle derivative name in parse tree --- Tools/CodeGen/KrancScript.m | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Tools/CodeGen/KrancScript.m') 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}]; -- cgit v1.2.3