fixed a bug that created inconsistent code for standard boundary conditions

applied to groups (the goups were always associated with the default base thorn,
which is not always true).

1 files changed, 5 insertions, 4 deletions

diff --git a/Tools/CodeGen/Thorn.m b/Tools/CodeGen/Thorn.m
index 4e01a3b..df05b00 100644
--- a/Tools/CodeGen/Thorn.m
+++ b/Tools/CodeGen/Thorn.m
@@ -633,11 +633,12 @@ cleanCPP[x_] := Map[StringReplace[FlattenBlock[#],  "  #" -> "#"]&, x];
    CodeGen structure of a source file which does nothing yet! *)
 CreateMoLBoundariesSource[spec_] :=
 
-  Module[{gfs, groups, tmp, lang},
+  Module[{gfs, groups, unqualifiedGroups, tmp, lang},
 
   gfs = lookup[spec, EvolvedGFs];
-  groups = Map[unqualifiedGroupName, lookup[spec, Groups]];
-
+  groups =  lookup[spec, Groups];  
+  unqualifiedGroups = Map[unqualifiedGroupName, lookup[spec, Groups]];
+  
     listBCparfileEntry[gforgroup_] := Module[{prefix, unqualName},
     (* include a comment block with template parameter file entries *)
     prefix =  "#$bound$#" <> lookup[spec, ThornImplementation] <> "::";
@@ -870,7 +871,7 @@ CreateMoLBoundariesSource[spec_] :=
 
      "\n\n\n",
      "/* template for entries in parameter file:\n",
-      Map[listBCparfileEntry, groups],
+      Map[listBCparfileEntry, unqualifiedGroups],
       Map[listBCparfileEntry, gfs],
      "*/\n\n"
      };