From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 17 Dec 1987 04:12:31 +0000 (+0000)
Subject: Typo in `subvector_move_prefix'.
X-Git-Tag: 20090517-FFI~12981
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=76ce4ecc28746c3fe3b7fd84feb9d144692553fc;p=mit-scheme.git

Typo in `subvector_move_prefix'.
---

diff --git a/v7/src/microcode/vector.c b/v7/src/microcode/vector.c
index c8d821acc..7b7639776 100644
--- a/v7/src/microcode/vector.c
+++ b/v7/src/microcode/vector.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/vector.c,v 9.28 1987/12/16 19:38:05 cph Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/vector.c,v 9.29 1987/12/17 04:12:31 cph Exp $ */
 
 /* This file contains procedures for handling vectors and conversion
    back and forth to lists. */
@@ -290,7 +290,7 @@ DEFINE_PRIMITIVE ("SYSTEM-LIST-TO-VECTOR", Prim_Sys_List_To_Vector, 2)
   VECTOR_TOUCH (vector1);						\
   start1 = (arg_nonnegative_integer (2));				\
   end1 = (arg_nonnegative_integer (3));					\
-  vector2 = (ARG_VECTOR (2));						\
+  vector2 = (ARG_VECTOR (4));						\
   VECTOR_TOUCH (vector2);						\
   start2 = (arg_nonnegative_integer (5));				\
 									\