From 6cb27c4e40357a0ad14c3b26d99b0105cffb4986 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 31 Oct 1989 12:43:08 +0000
Subject: [PATCH] Fix bug in vector-cons by which it was not checking for GC.

---
 v7/src/microcode/vector.c  | 4 ++--
 v7/src/microcode/version.h | 4 ++--
 v8/src/microcode/version.h | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/microcode/vector.c b/v7/src/microcode/vector.c
index f56e509c6..962637141 100644
--- a/v7/src/microcode/vector.c
+++ b/v7/src/microcode/vector.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/vector.c,v 9.32 1989/09/20 23:12:56 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/vector.c,v 9.33 1989/10/31 12:42:53 jinx Rel $
 
 Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
 
@@ -103,7 +103,7 @@ DEFINE_PRIMITIVE ("VECTOR-CONS", Prim_vector_cons, 2, 2, 0)
 {
   PRIMITIVE_HEADER (2);
   PRIMITIVE_RETURN
-    (make_vector ((arg_nonnegative_integer (1)), (ARG_REF (2))));
+    (make_vector ((arg_nonnegative_integer (1)), (ARG_REF (2)), true));
 }
 
 DEFINE_PRIMITIVE ("VECTOR", Prim_vector, 0, LEXPR, 0)
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 9bdba6fbf..e4ccde11e 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.7 1989/10/28 15:39:06 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.8 1989/10/31 12:43:08 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	7
+#define SUBVERSION	8
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 3e0d8dfbb..252e2a4b8 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.7 1989/10/28 15:39:06 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.8 1989/10/31 12:43:08 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	7
+#define SUBVERSION	8
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
-- 
2.25.1