simplify functions

FlexibleSUSY · Jul 27, 2016 · 4639593 · 4639593
1 parent 6496f7a
commit 4639593
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/meta/WriteOut.m b/meta/WriteOut.m
@@ -564,19 +564,17 @@
     WriteSLHABlock[{blockName, parameter}, scale];
 
 WriteSLHAModelParametersBlocks[] :=
-    Module[{result = "", modelParameters, blocks},
+    Module[{modelParameters, blocks},
            modelParameters = GetSLHAModelParameters[];
            blocks = SortBlocks[modelParameters];
-           (result = result <> WriteSLHABlock[#])& /@ blocks;
-           Return[result];
+           StringJoin[WriteSLHABlock /@ blocks]
           ];
 
 WriteSLHAPhasesBlocks[] :=
-    Module[{result = "", phases, blocks},
+    Module[{phases, blocks},
            phases = GetSLHAPhases[];
            blocks = SortBlocks[phases];
-           (result = result <> WriteSLHABlock[#])& /@ blocks;
-           Return[result]
+           StringJoin[WriteSLHABlock /@ blocks]
           ];
 
 GetExtraSLHAOutputBlockScale[scale_ /; scale === FlexibleSUSY`NoScale] := "";