From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Jun 1991 18:13:00 +0000 (+0000)
Subject: Changes for sony mips.
X-Git-Tag: 20090517-FFI~10506
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f886b09bc2da23f6ccb254dada5d9abb7cc891b2;p=mit-scheme.git

Changes for sony mips.
---

diff --git a/v7/src/microcode/gcloop.c b/v7/src/microcode/gcloop.c
index 0932b7341..7ce7f83cc 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.35 1991/05/05 00:45:55 jinx Exp $
+/* $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 $
  *
  * This file contains the code for the most primitive part
  * of garbage collection.
@@ -55,12 +55,6 @@ extern SCHEME_OBJECT *GCLoop();
   GC_Pointer(Setup_Pointer(true, Extra_Code));				\
 }
 
-#ifdef ENABLE_DEBUGGING_TOOLS
-#ifndef ENABLE_GC_DEBUGGING_TOOLS
-#define ENABLE_GC_DEBUGGING_TOOLS
-#endif
-#endif
-
 #ifdef ENABLE_GC_DEBUGGING_TOOLS
 
 #ifndef GC_SCAN_HISTORY_SIZE
@@ -104,6 +98,7 @@ static int gc_scan_history_index;
       (To == gc_free_trap))						\
   {									\
     fprintf(stderr, "\nGCLoop: trap.\n");				\
+    abort ();								\
   }									\
 }