From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 14 Mar 2003 20:46:23 +0000 (+0000)
Subject: Finish updating MAKE-DEFINE-STRUCTURE-TYPE arguments by removing
X-Git-Tag: 20090517-FFI~1944
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b93da9255ce9853f6ac0af3d6a32cdaa79865bb3;p=mit-scheme.git

Finish updating MAKE-DEFINE-STRUCTURE-TYPE arguments by removing
bootstrap scaffolding.
---

diff --git a/v7/src/edwin/clscon.scm b/v7/src/edwin/clscon.scm
index d726fcede..1cfdcb547 100644
--- a/v7/src/edwin/clscon.scm
+++ b/v7/src/edwin/clscon.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: clscon.scm,v 1.13 2003/03/13 20:20:07 cph Exp $
+$Id: clscon.scm,v 1.14 2003/03/14 20:46:23 cph Exp $
 
 Copyright 1989,1990,1991,1993,2002,2003 Massachusetts Institute of Technology
 
@@ -50,15 +50,15 @@ USA.
 				       (and superclass
 					    (class-methods superclass))))))
 	       (named-structure/set-tag-description! class
-		 (make-define-structure-type 'VECTOR
-					     name
-					     (map car transforms)
-					     (map cdr transforms)
-					     (make-list (length transforms)
-							(lambda () #f))
-					     (standard-unparser-method name #f)
-					     class
-					     object-size))
+		 (make-define-structure-type
+		  'VECTOR
+		  name
+		  (list->vector (map car transforms))
+		  (list->vector (map cdr transforms))
+		  (make-vector (length transforms) (lambda () #f))
+		  (standard-unparser-method name #f)
+		  class
+		  object-size))
 	       class))))
       (if (not entry)
 	  (let ((class (make-class)))
diff --git a/v7/src/runtime/random.scm b/v7/src/runtime/random.scm
index da3660e0a..4f26cbbb1 100644
--- a/v7/src/runtime/random.scm
+++ b/v7/src/runtime/random.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: random.scm,v 14.28 2003/03/13 20:18:59 cph Exp $
+$Id: random.scm,v 14.29 2003/03/14 20:45:07 cph Exp $
 
 Copyright 1988,1989,1993,1994,1995,1996 Massachusetts Institute of Technology
 Copyright 1998,1999,2000,2001,2003 Massachusetts Institute of Technology
@@ -223,9 +223,9 @@ USA.
   (named-structure/set-tag-description! random-state-tag
     (make-define-structure-type 'VECTOR
 				'RANDOM-STATE
-				'(INDEX BORROW VECTOR)
-				'(1 2 3)
-				(make-list 3 (lambda () #f))
+				'#(INDEX BORROW VECTOR)
+				'#(1 2 3)
+				(make-vector 3 (lambda () #f))
 				(standard-unparser-method 'RANDOM-STATE #f)
 				random-state-tag
 				4)))
\ No newline at end of file