From 539804b61c2e8996c843313d1c10f48640eb2ce7 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Thu, 12 Sep 2013 14:04:55 +0200
Subject: KrancThorn.m: Localise pDefs variable

---
 Tools/CodeGen/KrancThorn.m | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Tools')

diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m
index c19d063..73740dd 100644
--- a/Tools/CodeGen/KrancThorn.m
+++ b/Tools/CodeGen/KrancThorn.m
@@ -72,7 +72,7 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[
     evolvedODEGroups, nonevolvedODEGroups,
     evolvedODEGroupDefinitions, rhsODEGroups,
     boundarySources, reflectionSymmetries,
-    pDefs, consCalcs, consCalcsIn, consGroups, cakernel,
+    consCalcs, consCalcsIn, consGroups, cakernel,
     sources = {}},
 
     InfoMessage[Terse, "Processing arguments to CreateKrancThorn"];
@@ -341,11 +341,12 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[
        ------------------------------------------------------------------------ *)
 
     Module[
-      {diffHeader},
+      {diffHeader, pDefs},
       InfoMessage[Terse, "Creating differencing header file"];
       {pDefs, diffHeader} = CreateDifferencingHeader[
         partialDerivs, OptionValue[ZeroDimensions],
         OptionValue[UseVectors], OptionValue[IntParameters]];
+      calcs = Map[Join[#, {PreDefinitions -> pDefs}] &, calcs];
       diffHeader = Join[
         If[OptionValue[UseVectors] && ! OptionValue[UseOpenCL],
            {"#include <assert.h>\n",
@@ -360,7 +361,6 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[
        Add predefinitions to calculations
        ------------------------------------------------------------------------ *)
 
-    calcs = Map[Join[#, {PreDefinitions -> pDefs}] &, calcs];
 
     (* ------------------------------------------------------------------------ 
        Create calculation source files
-- 
cgit v1.2.3