From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 19 Mar 2005 04:56:37 +0000 (+0000)
Subject: Change RECORD-TYPE-DEFAULT-INITS to return a list, not a vector.
X-Git-Tag: 20090517-FFI~1362
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=29fd24d1c4e2302c594a7d8da0fce84d4d6d452e;p=mit-scheme.git

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 6d91fe522..706749f3c 100644
--- 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.
 
 (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!))