From 40d2ed8e5683e2ec54f7da98c6f0ea3ece3e4639 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Wed, 11 Sep 2013 15:00:47 +0200
Subject: Param.m: Eliminate temporary variable

---
 Tools/CodeGen/Param.m | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/Tools/CodeGen/Param.m b/Tools/CodeGen/Param.m
index d3f3152..730a7c5 100644
--- a/Tools/CodeGen/Param.m
+++ b/Tools/CodeGen/Param.m
@@ -339,7 +339,7 @@ CreateKrancParam[evolvedGroups_, nonevolvedGroups_,
   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},
@@ -347,8 +347,6 @@ CreateKrancParam[evolvedGroups_, nonevolvedGroups_,
     (* 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 @@ CreateKrancParam[evolvedGroups_, nonevolvedGroups_,
                   {otherTimelevelsParam},
                   calcEveryStructs,
                   calcOffsetStructs,
-                  CactusBoundary`GetParameters[evolvedGFs, evolvedGroups]];
+                  CactusBoundary`GetParameters[variablesFromGroups[evolvedGroups, groups], evolvedGroups]];
 
     paramspec = {Implementations -> usedParameters[parameters, opts],
                  NewParameters   -> params};
-- 
cgit v1.2.3