From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 29 Nov 2000 21:25:54 +0000 (+0000)
Subject: Fix thinko.
X-Git-Tag: 20090517-FFI~3180
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0ee28aaa6e07bd7f3add6b21623a465626330787;p=mit-scheme.git

Fix thinko.
---

diff --git a/v7/src/microcode/bchgcc.h b/v7/src/microcode/bchgcc.h
index 563e5ffcb..b6cf1c0d9 100644
--- a/v7/src/microcode/bchgcc.h
+++ b/v7/src/microcode/bchgcc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bchgcc.h,v 9.61 2000/11/28 05:18:59 cph Exp $
+$Id: bchgcc.h,v 9.62 2000/11/29 21:25:54 cph Exp $
 
 Copyright (c) 1987-2000 Massachusetts Institute of Technology
 
@@ -441,7 +441,7 @@ do {									\
   Old = (SCHEME_ADDR_TO_ADDR (Temp));					\
   if (Old < low_heap)							\
     continue;								\
-  Compiled_BH (in_gc_p, continue);					\
+  RAW_COMPILED_BH (in_gc_p, continue);					\
   {									\
     SCHEME_OBJECT * Saved_Old = Old;					\
 									\