From d339a01d04926130b54c3912953d8f8e9f06c805 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Thu, 10 Dec 2009 16:43:28 +0000
Subject: [PATCH] Remove equal_counter

svn: r17260
---
 src/mzscheme/src/bool.c      | 5 -----
 src/mzscheme/src/mzeqchk.inc | 7 +------
 2 files changed, 1 insertion(+), 11 deletions(-)

diff --git a/src/mzscheme/src/bool.c b/src/mzscheme/src/bool.c
index 77b080cf71..b9b97b1014 100644
--- a/src/mzscheme/src/bool.c
+++ b/src/mzscheme/src/bool.c
@@ -340,13 +340,8 @@ static int is_equal_overflow(Scheme_Object *obj1, Scheme_Object *obj2, Equal_Inf
   return SCHEME_TRUEP(v);
 }
 
-/* Number of lists/vectors/structs/boxes to compare before
-   paying for a stack check. */
-#define EQUAL_COUNT_START 20
-
 int is_equal (Scheme_Object *obj1, Scheme_Object *obj2, Equal_Info *eql)
 {
-  static int equal_counter = EQUAL_COUNT_START;
 
  top:
   if (eql->next_next) {
diff --git a/src/mzscheme/src/mzeqchk.inc b/src/mzscheme/src/mzeqchk.inc
index 6183711c13..037faa7f40 100644
--- a/src/mzscheme/src/mzeqchk.inc
+++ b/src/mzscheme/src/mzeqchk.inc
@@ -1,12 +1,7 @@
-
-    if (!--equal_counter) {
-      equal_counter = EQUAL_COUNT_START;
-      SCHEME_USE_FUEL(EQUAL_COUNT_START);
-    
+      SCHEME_USE_FUEL(1);
 #ifdef DO_STACK_CHECK
       {
 #include "mzstkchk.h"
         return is_equal_overflow(obj1, obj2, eql);
       }
 #endif
-    }