Fix bug in bchmmg.c by which weak pairs whose cars were compiled

procedures would not be updated correctly.

diff --git a/v7/src/microcode/bchmmg.c b/v7/src/microcode/bchmmg.c
index 7b31ccd7bf543f1e571619c511d2f9c1af04165b..9a01f530489f2cd5dfb4d7b23208128afa8631b7 100644 (file)
--- a/v7/src/microcode/bchmmg.c
+++ b/v7/src/microcode/bchmmg.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.48 1989/09/20 23:05:48 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.49 1989/11/02 04:01:56 jinx Exp $
 
 Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
 
@@ -655,8 +655,7 @@ Fix_Weak_Chain()
     Weak_Chain = (OBJECT_NEW_TYPE (TC_NULL, Weak_Chain));
 
     switch(GC_Type(Temp))
-    {
-      case GC_Non_Pointer:
+    { case GC_Non_Pointer:
         *Scan = Temp;
        continue;
 
@@ -676,7 +675,7 @@ Fix_Weak_Chain()
       /* Normal pointer types, the broken heart is in the first word.
          Note that most special types are treated normally here.
         The BH code updates *Scan if the object has been relocated.
-        Otherwise it falls through and we replace it with a full #F.
+        Otherwise it falls through and we replace it with a full SHARP_F.
         Eliminating this assignment would keep old data (pl. of datum).
        */
       case GC_Cell:
@@ -707,7 +706,7 @@ Fix_Weak_Chain()
          *Scan = Temp;
          continue;
        }
-       Compiled_BH(false, continue);
+       Compiled_BH(false, { *Scan = Temp; continue; });
        *Scan = SHARP_F;
        continue;
 

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index e4ccde11e0730041c889ef13ec0a746cca041c32..db516a8efc25b20de22f41b128ff4ed8b0d33809 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.8 1989/10/31 12:43:08 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.9 1989/11/02 03:59:26 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     8
+#define SUBVERSION     9
 #endif
 
 #ifndef UCODE_TABLES_FILENAME

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 252e2a4b8167845ddebd9777ad94daa00fa20794..54b5ff3a838f65915a8073d31b0a18c4af374895 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.8 1989/10/31 12:43:08 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.9 1989/11/02 03:59:26 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     8
+#define SUBVERSION     9
 #endif
 
 #ifndef UCODE_TABLES_FILENAME