From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 14 Jul 1997 17:59:57 +0000 (+0000)
Subject: Use EMPTY_WEAK_CHAIN for weak pair chain instead of EMPTY_LIST.
X-Git-Tag: 20090517-FFI~5068
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f8d5f475f2b905457ac8f2c3d28e7be830688a00;p=mit-scheme.git

Use EMPTY_WEAK_CHAIN for weak pair chain instead of EMPTY_LIST.
---

diff --git a/v7/src/microcode/wabbit.c b/v7/src/microcode/wabbit.c
index b232cdf5e..88e8571c3 100644
--- a/v7/src/microcode/wabbit.c
+++ b/v7/src/microcode/wabbit.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: wabbit.c,v 1.4 1996/10/02 18:59:11 cph Exp $
+$Id: wabbit.c,v 1.5 1997/07/14 17:59:57 adams Exp $
 
 Copyright (c) 1994-96 Massachusetts Institute of Technology
 
@@ -941,7 +941,7 @@ DEFUN_VOID (fix_weak_chain_and_hunt_wabbits)
     this_object, * old_space_addr, * low_heap;
 
   low_heap = Constant_Top;
-  while (Weak_Chain != EMPTY_LIST)
+  while (Weak_Chain != EMPTY_WEAK_CHAIN)
   {
     old_weak_pair = (OBJECT_ADDRESS (Weak_Chain));
     scan = (OBJECT_ADDRESS (*old_weak_pair++));