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 d726fcede9e4443b347454a1f3acdbacd78f2b1a..1cfdcb547a55d386a18ff5ca376a8c4189e351b8 100644 (file)
--- 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 da3660e0a4854e3366a7402730d540ee6499f672..4f26cbbb10bc8e8782a0253d24dbd163149e7c41 100644 (file)
--- 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