From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 27 Jul 1995 00:20:04 +0000 (+0000)
Subject: Use EMPTY_WEAK_CHAIN.
X-Git-Tag: 20090517-FFI~6132
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=671835e5455cdfe1247530be08c13ca2805b33e3;p=mit-scheme.git

Use EMPTY_WEAK_CHAIN.
---

diff --git a/v7/src/microcode/purify.c b/v7/src/microcode/purify.c
index c639bf0a3..e9f80e2db 100644
--- 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 */