From d5a647492d1ab3b5ed5e4a5001217e6a981edcbf Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 14 Mar 2003 20:38:39 +0000
Subject: [PATCH] Finish updating MAKE-DEFINE-STRUCTURE-TYPE arguments by
 removing bootstrap scaffolding.

---
 v7/src/runtime/record.scm | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index ccd2d5cda..079cf4d7d 100644
--- a/v7/src/runtime/record.scm
+++ b/v7/src/runtime/record.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: record.scm,v 1.45 2003/03/14 20:10:20 cph Exp $
+$Id: record.scm,v 1.46 2003/03/14 20:38:39 cph Exp $
 
 Copyright 1989,1990,1991,1993,1994,1996 Massachusetts Institute of Technology
 Copyright 1997,2002,2003 Massachusetts Institute of Technology
@@ -495,15 +495,9 @@ USA.
 				 unparser-method tag length)
 	    (constructor physical-type
 			 name
-			 (if (vector? field-names)
-			     field-names
-			     (list->vector field-names))
-			 (if (vector? field-indexes)
-			     field-indexes
-			     (list->vector field-indexes))
-			 (if (vector? default-inits)
-			     (vector-copy default-inits)
-			     (list->vector default-inits))
+			 field-names
+			 field-indexes
+			 default-inits
 			 unparser-method
 			 tag
 			 length))))
-- 
2.25.1