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 b232cdf5e67f18c7d7558cafc0f35cf1c183ef8c..88e8571c3f30c5b333802c7bd53ed30a7eb32ff1 100644 (file)
--- 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++));