Change call to MAKE-DEFINE-STRUCTURE-TYPE to match new definition.

diff --git a/v7/src/edwin/clscon.scm b/v7/src/edwin/clscon.scm
index 01bb0411b780cb71370dadbd6040f242657605bd..d726fcede9e4443b347454a1f3acdbacd78f2b1a 100644 (file)
--- a/v7/src/edwin/clscon.scm
+++ b/v7/src/edwin/clscon.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: clscon.scm,v 1.12 2003/03/11 05:01:21 cph Exp $
+$Id: clscon.scm,v 1.13 2003/03/13 20:20:07 cph Exp $
 
 Copyright 1989,1990,1991,1993,2002,2003 Massachusetts Institute of Technology
 
@@ -49,14 +49,16 @@ USA.
                                 (cons '()
                                       (and superclass
                                            (class-methods superclass))))))
-              (named-structure/set-tag-description!
-               class
-               (make-define-structure-type 'VECTOR
-                                           name
-                                           (map car transforms)
-                                           (map cdr transforms)
-                                           #f
-                                           (unparser/standard-method name)))
+              (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))
               class))))
       (if (not entry)
          (let ((class (make-class)))

diff --git a/v7/src/runtime/random.scm b/v7/src/runtime/random.scm
index b168387c9b0536dd3c9212c61a09ccdccbc1cd95..da3660e0a4854e3366a7402730d540ee6499f672 100644 (file)
--- a/v7/src/runtime/random.scm
+++ b/v7/src/runtime/random.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: random.scm,v 14.27 2003/03/11 05:00:48 cph Exp $
+$Id: random.scm,v 14.28 2003/03/13 20:18:59 cph Exp $
 
 Copyright 1988,1989,1993,1994,1995,1996 Massachusetts Institute of Technology
 Copyright 1998,1999,2000,2001,2003 Massachusetts Institute of Technology
@@ -225,5 +225,7 @@ USA.
                                'RANDOM-STATE
                                '(INDEX BORROW VECTOR)
                                '(1 2 3)
-                               #f
-                               (standard-unparser-method 'RANDOM-STATE #f))))
\ No newline at end of file
+                               (make-list 3 (lambda () #f))
+                               (standard-unparser-method 'RANDOM-STATE #f)
+                               random-state-tag
+                               4)))
\ No newline at end of file