From caba173a40db925c0e7209f0dd537c4c17305aa3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Jun 1991 01:41:43 +0000
Subject: [PATCH] Change GC traps to do >= comparisons rather than ==.

---
 v7/src/microcode/gcloop.c | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/v7/src/microcode/gcloop.c b/v7/src/microcode/gcloop.c
index 7ce7f83cc..c61f95676 100644
--- a/v7/src/microcode/gcloop.c
+++ b/v7/src/microcode/gcloop.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gcloop.c,v 9.36 1991/06/20 18:13:00 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gcloop.c,v 9.37 1991/06/21 01:41:43 cph Exp $
  *
  * This file contains the code for the most primitive part
  * of garbage collection.
@@ -93,13 +93,13 @@ static int gc_scan_history_index;
   (gc_to_history [gc_scan_history_index]) = To;				\
   if ((++gc_scan_history_index) == GC_SCAN_HISTORY_SIZE)		\
     gc_scan_history_index = 0;						\
-  if ((Temp == gc_trap) ||						\
-      (Scan == gc_scan_trap) ||						\
-      (To == gc_free_trap))						\
-  {									\
-    fprintf(stderr, "\nGCLoop: trap.\n");				\
-    abort ();								\
-  }									\
+  if ((Temp == gc_trap)							\
+      || ((gc_scan_trap != 0) && (Scan >= gc_scan_trap))		\
+      || ((gc_free_trap != 0) && (To >= gc_free_trap)))			\
+    {									\
+      fprintf(stderr, "\nGCLoop: trap.\n");				\
+      abort ();								\
+    }									\
 }
 
 #else
-- 
2.25.1