adding helper function returning comma separated list of EWSB pars

FlexibleSUSY · Aug 4, 2016 · b24c1c9 · b24c1c9
1 parent 705fc2e
commit b24c1c9
Showing 1 changed file with 9 additions and 10 deletions.
diff --git a/meta/EWSB.m b/meta/EWSB.m
@@ -45,6 +45,9 @@
 CreateEWSBParametersInitializationList::usage="Creates initialization
 list with EWSB output parameters";
 
+CreateEWSBParametersInitializationComma::usage="Creates initialization
+list with EWSB output parameters";
+
 Begin["`Private`"];
 
 DebugPrint[msg___] :=
@@ -785,17 +788,13 @@
            Return[result];
           ];
 
+CreateEWSBParametersInitializationComma[{}] := "";
+
+CreateEWSBParametersInitializationComma[parameters_List] :=
+    Utils`StringJoinWithSeparator[ConvertToReal /@ parameters, ", "];
+
 CreateEWSBParametersInitializationList[parameters_List] :=
-    Module[{result = "{}"},
-           If[Length[parameters] > 0,
-              result = Utils`StringJoinWithSeparator[
-                  ConvertToReal /@ parameters,
-                  ", "
-              ];
-              result = "{ " <> result <> " }";
-             ];
-           result
-          ];
+    "{" <> CreateEWSBParametersInitializationComma[parameters] <> "}";
 
 End[];