Change cc-vector structures to be of type vector so they can be

dumped.

diff --git a/v7/src/compiler/base/crsend.scm b/v7/src/compiler/base/crsend.scm
index d7a7e13bbc1086fd9514ca1f06744da528fccece..166f9f359b93ab2fac417e97e8c6c90ed0948395 100644 (file)
--- a/v7/src/compiler/base/crsend.scm
+++ b/v7/src/compiler/base/crsend.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/crsend.scm,v 1.8 1992/06/12 01:43:04 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/crsend.scm,v 1.9 1993/01/05 15:57:36 gjr Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -94,7 +94,8 @@ MIT in each case. |#
   (objects false read-only true)
   (object-width false read-only true))
 
-(define-structure (cc-vector (constructor cc-vector/make)
+(define-structure (cc-vector (type vector)
+                            (constructor cc-vector/make)
                             (conc-name cc-vector/))
   (code-vector false read-only true)
   (entry-label false read-only true)

diff --git a/v7/src/compiler/base/crstop.scm b/v7/src/compiler/base/crstop.scm
index 5f6615d43808a1740b463dd70e6b8dc120c406f2..452e8299c1a23b28d9a7cebe71abe51511094068 100644 (file)
--- a/v7/src/compiler/base/crstop.scm
+++ b/v7/src/compiler/base/crstop.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: crstop.scm,v 1.11 1992/10/19 19:11:40 jinx Exp $
+$Id: crstop.scm,v 1.12 1993/01/05 15:57:31 gjr Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -135,7 +135,8 @@ MIT in each case. |#
   (objects false read-only true)
   (object-width false read-only true))
 
-(define-structure (cc-vector (constructor cc-vector/make)
+(define-structure (cc-vector (type vector)
+                            (constructor cc-vector/make)
                             (conc-name cc-vector/))
   (code-vector false read-only true)
   (entry-label false read-only true)