Change RECORD-TYPE-DEFAULT-INITS to return a list, not a vector.

diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index 6d91fe5223b63c866e9c648c29538b95f15065c8..706749f3cc37c6859c7c0cfb60577f8e429f1b83 100644 (file)
--- a/v7/src/runtime/record.scm
+++ b/v7/src/runtime/record.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: record.scm,v 1.50 2005/03/19 03:33:21 cph Exp $
+$Id: record.scm,v 1.51 2005/03/19 04:56:37 cph Exp $
 
 Copyright 1989,1990,1991,1993,1994,1996 Massachusetts Institute of Technology
 Copyright 1997,2002,2003,2004,2005 Massachusetts Institute of Technology
@@ -193,13 +193,7 @@ USA.
 \f
 (define (record-type-default-inits record-type)
   (guarantee-record-type record-type 'RECORD-TYPE-DEFAULT-INITS)
-  (let* ((v (%record-type-default-inits record-type))
-        (n (vector-length v))
-        (v* (vector-cons n #f)))
-    (do ((i 0 (fix:+ i 1)))
-       ((not (fix:< i n)))
-      (vector-set! v* i (vector-ref v i)))
-    v*))
+  (vector->list (%record-type-default-inits record-type)))
 
 (define (set-record-type-default-inits! record-type default-inits)
   (let ((caller 'SET-RECORD-TYPE-DEFAULT-INITS!))