KrancThorn.m: Eliminate several temporary variables

ianhinder · Sep 12, 2013 · 311d24d · 311d24d
1 parent eb39bfe
commit 311d24d
Showing 1 changed file with 16 additions and 13 deletions.
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m
@@ -68,10 +68,10 @@ Thorn generation (main entry point for non-tensorial thorns)
     parameters,
     configuration,
     partialDerivs, evolvedGroups, rhsGroups, nonevolvedGroups,
-    interface, evolvedGroupDefinitions, thornspec,
+    interface, evolvedGroupDefinitions,
     evolvedODEGroups, nonevolvedODEGroups,
     evolvedODEGroupDefinitions, rhsODEGroups,
-    consCalcs, consCalcsIn, consGroups, cakernel,
+    cakernel,
     sources = {}},
 
     InfoMessage[Terse, "Processing arguments to CreateKrancThorn"];
@@ -406,17 +406,20 @@ Thorn generation (main entry point for non-tensorial thorns)
        ------------------------------------------------------------------------ *)
 
     (* Put all the above together and generate the Cactus thorn *)
-    thornspec = {Name          -> thornName, 
-                 Directory     -> parentDirectory,
-                 Configuration -> configuration,
-	         Interface     -> interface, 
-                 Schedule      -> schedule, 
-                 Param         -> param,
-                 CaKernel      -> cakernel,
-                 Makefile      -> make,
-                 Sources       -> sources};
-    InfoMessage[Terse, "Creating thorn"];
-    CreateThorn[thornspec]];
+
+    Module[
+      {thornspec},
+      thornspec = {Name          -> thornName, 
+                   Directory     -> parentDirectory,
+                   Configuration -> configuration,
+                   Interface     -> interface, 
+                   Schedule      -> schedule, 
+                   Param         -> param,
+                   CaKernel      -> cakernel,
+                   Makefile      -> make,
+                   Sources       -> sources};
+      InfoMessage[Terse, "Creating thorn"];
+      CreateThorn[thornspec]]];
 
 End[];
 EndPackage[];