KrancThorn.m: Add ThornName to calculation

ianhinder · Mar 1, 2014 · 0d831a6 · 0d831a6
1 parent e57c986
commit 0d831a6
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m
@@ -197,6 +197,7 @@ Thorn generation (main entry point for non-tensorial thorns)
       calcs = Map[mapReplaceAdd[#, Shorthands, Join[lookup[#,Shorthands,{}],OptionValue[Shorthands]]] &, calcs];
       calcs = Map[Append[#, Implementation -> GetObjectField[c, "Implementation"]] &, calcs];
       calcs = Map[Append[#, PartialDerivatives -> GetObjectField[c, "PartialDerivatives"]] &, calcs];
+      calcs = Map[Append[#, ThornName -> GetObjectField[c, "Name"]] &, calcs];
       SetObjectField[c, "Calculations", calcs]];
 
     (* ------------------------------------------------------------------------