[project @ 1999-12-02 13:33:06 by simonmar]

[ghc-hetmet.git] / ghc / compiler / simplCore / SimplCore.lhs

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index 2356d85..b78ebc4 100644 (file)
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -288,11 +288,14 @@ simplifyPgm (imported_rule_ids, rule_lhs_fvs)
                -- Stop if we've run out of iterations
           if iteration_no == max_iterations then
                do {
+#ifdef DEBUG
                    if  max_iterations > 2 then
                            hPutStr stderr ("NOTE: Simplifier still going after " ++ 
                                    show max_iterations ++ 
                                    " iterations; bailing out.\n")
-                   else return ();
+                   else 
+#endif
+                       return ();
 
                    return ("Simplifier baled out", iteration_no, all_counts, binds')
                }