Unnecessary and incorrect reinitialization of Weak_Chain.

diff --git a/v7/src/microcode/memmag.c b/v7/src/microcode/memmag.c
index 5c17d4ac8e39698c3976cbf986d92437c424a05d..37fbef6e22b810aca289c34543ff79ec3a03a702 100644 (file)
--- a/v7/src/microcode/memmag.c
+++ b/v7/src/microcode/memmag.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/memmag.c,v 9.24 1987/02/07 15:25:07 jinx Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/memmag.c,v 9.25 1987/02/08 12:28:47 jinx Exp $ */
 
 /* Memory management top level.
 
@@ -333,7 +333,6 @@ Built_In_Primitive(Prim_Garbage_Collect, 1, "GARBAGE-COLLECT")
   }
   GC_Reserve = Get_Integer(Arg1);
   GCFlip();
-  Weak_Chain = NULL;
   GC();
   IntCode &= ~INT_GC;
   if (GC_Check(GC_Space_Needed))