From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 29 Jul 1987 08:24:27 +0000 (+0000)
Subject: Fix off by one bug in Intern_Block.
X-Git-Tag: 20090517-FFI~13205
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=965ae1efbcb5ab2945b4948c1b8c6516b655d2d1;p=mit-scheme.git

Fix off by one bug in Intern_Block.
---

diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c
index 10ec9be04..42d678c35 100644
--- a/v7/src/microcode/fasload.c
+++ b/v7/src/microcode/fasload.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/fasload.c,v 9.28 1987/07/07 21:02:46 cph Rel $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasload.c,v 9.29 1987/07/29 08:24:27 jinx Exp $
 
    The "fast loader" which reads in and relocates binary files and then
    interns symbols.  It is called with one argument: the (character
@@ -285,7 +285,7 @@ Intern_Block(Next_Pointer, Stop_At)
   if (Reloc_Debug)
     printf("Interning a block.\n");
 
-  while (Next_Pointer <= Stop_At)	/* BBN has < for <= */
+  while (Next_Pointer < Stop_At)
   {
     switch (Type_Code(*Next_Pointer))
     { case TC_MANIFEST_NM_VECTOR: