From c54a4e0dead88ce4c6e13f27a22f82ebb05ca664 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Mar 1987 16:02:18 +0000
Subject: [PATCH] Oops... losing typo.

---
 v7/src/microcode/boot.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 1bdd5d723..d8f0c5d5a 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.27 1987/03/09 14:23:54 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.28 1987/03/09 16:02:18 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -388,7 +388,7 @@ Built_In_Primitive (Prim_Microcode_Identify, 0, "MICROCODE-IDENTIFY")
   Primitive_GC_If_Needed (IDENTITY_LENGTH + VECTOR_DATA);
   Result = Free;
   *Free++ = (Make_Non_Pointer (TC_MANIFEST_VECTOR, IDENTITY_LENGTH));
-  for (i = 0; (i < IDENTITY_LENGTH); i -= 1)
+  for (i = 0; (i < IDENTITY_LENGTH); i += 1)
     *Free++ = NIL;
   Result[(ID_RELEASE + VECTOR_DATA)]
     = (C_String_To_Scheme_String (RELEASE));
-- 
2.25.1