From b558b23da60f5a0ea65fe78b468a67f070b8c386 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Fri, 13 Sep 2013 18:51:27 +0200 Subject: KrancThorn.m: Move calculation splitting call to separate function --- Tools/CodeGen/KrancThorn.m | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Tools') diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index eae4a76..16f783f 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -78,6 +78,10 @@ DefFn[ c = AppendObjectField[c, "InheritedImplementations", "GenericFD"]; c]]; +DefFn[ + splitCalculationsProcessCode[cIn_Code, opts___] := + ApplyToObjectField[cIn, "Calculations", SplitCalculations]]; + (* -------------------------------------------------------------------------- Thorn generation (main entry point for non-tensorial thorns) -------------------------------------------------------------------------- *) @@ -237,7 +241,7 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ Split calculations according to SplitVars option ------------------------------------------------------------------------ *) - c = ApplyToObjectField[c, "Calculations", SplitCalculations]; + c = splitCalculationsProcessCode[c, opts]; (* ------------------------------------------------------------------------ Symmetries -- cgit v1.2.3