From c9cd97a0ae2ee74bbdd4aedfbe6ad0d7eb0b5e71 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 19 Oct 1999 15:11:31 +0000
Subject: [PATCH] [project @ 1999-10-19 15:11:31 by sewardj] Increase default
 cutoff limit from 16 to 60.  nofib/real/anna won't compile
 even with this value set to 50.  Presumably the same
 problem afflicts Hugs98-Sept98 ?

---
 ghc/interpreter/preds.c |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/interpreter/preds.c b/ghc/interpreter/preds.c
index c159bb2..612dfa3 100644
--- a/ghc/interpreter/preds.c
+++ b/ghc/interpreter/preds.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: preds.c,v $
- * $Revision: 1.6 $
- * $Date: 1999/10/15 21:40:54 $
+ * $Revision: 1.7 $
+ * $Date: 1999/10/19 15:11:31 $
  * ------------------------------------------------------------------------*/
 
 /* --------------------------------------------------------------------------
@@ -174,7 +174,7 @@ Cell ev; {
  *
  * ------------------------------------------------------------------------*/
 
-Int cutoff = 16;                        /* Used to limit depth of recursion*/
+Int cutoff = 60;                        /* Used to limit depth of recursion*/
 
 static Void local cutoffExceeded(pi,o,pi1,o1,ps)
 Cell pi, pi1;                           /* Display error msg when cutoff   */
-- 
1.7.10.4