From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 2 Jun 1987 08:43:02 +0000 (+0000)
Subject: Treat weak pairs correctly.
X-Git-Tag: 20090517-FFI~13432
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=963d6379c678280bd433bfdb15bd6172d311832a;p=mit-scheme.git

Treat weak pairs correctly.
---

diff --git a/v7/src/microcode/bchpur.c b/v7/src/microcode/bchpur.c
index a1247e364..ab9eba90e 100644
--- a/v7/src/microcode/bchpur.c
+++ b/v7/src/microcode/bchpur.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/Attic/bchpur.c,v 9.28 1987/06/02 00:16:53 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchpur.c,v 9.29 1987/06/02 08:43:02 jinx Exp $
  *
  * This file contains the code for primitives dealing with pure
  * and constant space.  Garbage collection to disk version.
@@ -166,6 +166,7 @@ purifyloop(Scan, To_ptr, To_Address_ptr, purify_mode)
 	}
 	/* Fall through. */
 
+      case TC_WEAK_CONS:
       case_Fasdump_Pair:
       purify_pair:
 	relocate_normal_pointer(copy_pair(), 2);
@@ -204,9 +205,6 @@ purifyloop(Scan, To_ptr, To_Address_ptr, purify_mode)
 	Scan -= 1;
 	continue;
 
-      case TC_WEAK_CONS:
-	relocate_normal_pointer(copy_weak_pair(), 2);
-
       default:
 	fprintf(stderr,
 		"\npurifyloop: Bad type code = 0x%02x\n",