Use EMPTY_WEAK_CHAIN.

diff --git a/v7/src/microcode/purify.c b/v7/src/microcode/purify.c
index c639bf0a3e1cb41740b4c1f4d675781b110006b1..e9f80e2dba2b9fdbf1807e88a324d8ee70f917fd 100644 (file)
--- a/v7/src/microcode/purify.c
+++ b/v7/src/microcode/purify.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: purify.c,v 9.54 1993/12/07 20:36:03 gjr Exp $
+$Id: purify.c,v 9.55 1995/07/27 00:20:04 adams Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -423,7 +423,7 @@ DEFUN (purify, (object, purify_mode),
 
   run_pre_gc_hooks ();
   STACK_SANITY_CHECK ("PURIFY");
-  Weak_Chain = EMPTY_LIST;
+  Weak_Chain = EMPTY_WEAK_CHAIN;
   Constant_Top = Free_Constant; 
   new_object = Free_Constant;
   *Free_Constant++ = SHARP_F;  /* Will hold pure space header */