adding helper function to print and return a value

to help during debugging
FlexibleSUSY · Sep 6, 2018 · c663e4a · c663e4a
1 parent 3d3fd2b
commit c663e4a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/meta/Utils.m b/meta/Utils.m
@@ -132,6 +132,8 @@ occurrence of the given rule is replaced (if it exists) or added (if
 
 FSFancyLine::usage = "Print separator line in command line mode";
 
+PrintAndReturn::usage = "Print result and return it";
+
 Begin["`Private`"];
 
 AppendOrReplaceInList[values_List, elem_, test_:SameQ] :=
@@ -261,6 +263,8 @@ occurrence of the given rule is replaced (if it exists) or added (if
 FSFancyLine[type_:"-", style__:Bold] :=
     If[!$Notebooks, Print[Style[StringJoin[Array[type&, 70]], style]]];
 
+PrintAndReturn[e___] := (Print[e]; e)
+
 End[];
 
 EndPackage[];