Don't output full equations in InfoFull mode when simplifying

ianhinder · Nov 19, 2011 · da55994 · da55994
1 parent 5f1fc1a
commit da55994
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/Tools/CodeGen/CalculationFunction.m b/Tools/CodeGen/CalculationFunction.m
@@ -427,10 +427,9 @@ pathalogical enough (e.g. {s1 -> s2, s2 -> s1} would not be
                                       Last[#],
                                       First[#], debug] &,
               eqs],
-
+    (* else *)
     If[!lookupDefault[cleancalc, NoSimplify, False],
-       InfoMessage[InfoFull, "Simplifying equations", eqs//InputForm];
-       eqs = Simplify[eqs, {r>=0}]]];
+       eqs = Map[(InfoMessage[InfoFull, "Simplifying "<>ToString[#[[1]], InputForm]<>" -> ..."]; Simplify[#, {r>=0}]) &, eqs]]];
 
   InfoMessage[InfoFull, "Equations:"];