From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Mar 1987 16:02:18 +0000 (+0000)
Subject: Oops... losing typo.
X-Git-Tag: 20090517-FFI~13688
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c54a4e0dead88ce4c6e13f27a22f82ebb05ca664;p=mit-scheme.git

Oops... losing typo.
---

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));