From da5599483548a8145e4b3cb8666e7aa928d1e613 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Sat, 19 Nov 2011 19:39:43 +0100
Subject: Don't output full equations in InfoFull mode when simplifying

---
 Tools/CodeGen/CalculationFunction.m | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'Tools/CodeGen')

diff --git a/Tools/CodeGen/CalculationFunction.m b/Tools/CodeGen/CalculationFunction.m
index f64693e..ede0ec9 100644
--- a/Tools/CodeGen/CalculationFunction.m
+++ b/Tools/CodeGen/CalculationFunction.m
@@ -427,10 +427,9 @@ DefFn[
                                       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:"];
 
-- 
cgit v1.2.3