From 68e995b795a14c7a67994f12d7406308b4720358 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 5 Jan 1993 15:57:36 +0000 Subject: [PATCH] Change cc-vector structures to be of type vector so they can be dumped. --- v7/src/compiler/base/crsend.scm | 5 +++-- v7/src/compiler/base/crstop.scm | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/base/crsend.scm b/v7/src/compiler/base/crsend.scm index d7a7e13bb..166f9f359 100644 --- 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 5f6615d43..452e8299c 100644 --- 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) -- 2.25.1