Do not hard-code macro string used in applying constraints

FlexibleSUSY · Dec 19, 2016 · f708418 · f708418
1 parent 9486017
commit f708418
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/meta/Constraint.m b/meta/Constraint.m
@@ -179,7 +179,7 @@
           Quit[1];
          ];
 
-ApplyConstraints[settings_List] :=
+ApplyConstraints[settings_List, modelName_String:"MODEL"] :=
     Module[{result, noMacros, noTemp},
            noMacros = DeleteCases[
                settings,
@@ -195,7 +195,7 @@
            result = Parameters`CreateLocalConstRefs[(#[[2]])& /@ noMacros];
            result = result <> AddBetas[noMacros];
            result = result <> "\n";
-           (result = result <> ApplyConstraint[#, "MODEL"])& /@ noTemp;
+           (result = result <> ApplyConstraint[#, modelName])& /@ noTemp;
            Return[result];
           ];