From cd7f7be5b83e4cc2a33cc30b40f315f416cd7f53 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 25 Aug 1987 20:37:58 +0000
Subject: [PATCH] Fix bug in bchscheme.  The current disk position was not
 being updated in some cases.

---
 v7/src/microcode/bchmmg.c  | 15 +++++++++------
 v7/src/microcode/version.h |  4 ++--
 v8/src/microcode/version.h |  4 ++--
 3 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/v7/src/microcode/bchmmg.c b/v7/src/microcode/bchmmg.c
index 3e0e84465..85dcb2061 100644
--- a/v7/src/microcode/bchmmg.c
+++ b/v7/src/microcode/bchmmg.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/bchmmg.c,v 9.35 1987/08/10 21:25:07 jinx Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.36 1987/08/25 20:37:58 jinx Exp $ */
 
 /* Memory management top level.  Garbage collection to disk.
 
@@ -304,12 +304,15 @@ load_buffer(position, to, nbytes, name)
 {
   long bytes_read;
 
-  if ((current_disk_position != position) &&
-      (lseek(gc_file, position, 0) == -1))
+  if (current_disk_position != position)
   {
-    fprintf(stderr, "\nCould not position GC file to read %s.\n", name);
-    Microcode_Termination(TERM_EXIT);
-    /*NOTREACHED*/
+    if (lseek(gc_file, position, 0) == -1)
+    {
+      fprintf(stderr, "\nCould not position GC file to read %s.\n", name);
+      Microcode_Termination(TERM_EXIT);
+      /*NOTREACHED*/
+    }
+    current_disk_position = position;
   }
   if ((bytes_read = read(gc_file, to, nbytes)) != nbytes)
   {
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index fadf04b61..81cbbc500 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -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/version.h,v 9.98 1987/08/17 19:33:01 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.99 1987/08/25 20:36:51 jinx Exp $
 
 This file contains version information for the microcode. */
 
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION		9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	98
+#define SUBVERSION	99
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index cfc7757d1..eea94a7b7 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -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/v8/src/microcode/version.h,v 9.98 1987/08/17 19:33:01 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.99 1987/08/25 20:36:51 jinx Exp $
 
 This file contains version information for the microcode. */
 
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION		9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	98
+#define SUBVERSION	99
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
-- 
2.25.1