From 8e9476b815bb664ad435eabd7fc37b0a5683da22 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Jun 1987 19:55:06 +0000
Subject: [PATCH] Renamed variable.

---
 v7/src/microcode/bchpur.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/bchpur.c b/v7/src/microcode/bchpur.c
index a58e72d45..4b217e4b3 100644
--- a/v7/src/microcode/bchpur.c
+++ b/v7/src/microcode/bchpur.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/Attic/bchpur.c,v 9.30 1987/06/05 17:29:53 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchpur.c,v 9.31 1987/06/05 19:55:06 cph Exp $
  *
  * This file contains the code for primitives dealing with pure
  * and constant space.  Garbage collection to disk version.
@@ -130,7 +130,7 @@ purifyloop(Scan, To_ptr, To_Address_ptr, purify_mode)
 	break;
 
       case_compiled_entry_point:
-	if (GC_Mode == PURE_COPY)
+	if (purify_mode == PURE_COPY)
 	  break;
 	Old = Get_Pointer(Temp);
 	if (Old >= Low_Constant)
-- 
2.25.1