Param.m: Eliminate temporary variable

ianhinder · Sep 11, 2013 · 40d2ed8 · 40d2ed8
1 parent 686470e
commit 40d2ed8
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/Tools/CodeGen/Param.m b/Tools/CodeGen/Param.m
@@ -339,16 +339,14 @@
   evolutionTimelevels_, defaultEvolutionTimelevels_,
   calcs_, opts:OptionsPattern[]] :=
   Module[
-    {evolvedGFs, otherTimelevelsParam, genericfdStruct, verboseStruct, calcEveryStructs, calcOffsetStructs,
+    {otherTimelevelsParam, genericfdStruct, verboseStruct, calcEveryStructs, calcOffsetStructs,
      allInherited, allExtended, implementationNames,
      userImplementations, userImplementations2, implementations,
      params, paramspec, param},
 
     (* reals and ints are symbols containing parameter names.  The
        inherited ones have implementation names as well *)
 
-    evolvedGFs = variablesFromGroups[evolvedGroups, groups];
-
     otherTimelevelsParam =
     {
       Name -> "other_timelevels",
@@ -373,7 +371,7 @@
                   {otherTimelevelsParam},
                   calcEveryStructs,
                   calcOffsetStructs,
-                  CactusBoundary`GetParameters[evolvedGFs, evolvedGroups]];
+                  CactusBoundary`GetParameters[variablesFromGroups[evolvedGroups, groups], evolvedGroups]];
 
     paramspec = {Implementations -> usedParameters[parameters, opts],
                  NewParameters   -> params};