From eca0696fd9214edddc55cdf568ee8d4829651770 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 13 Mar 2003 20:20:07 +0000
Subject: [PATCH] Change call to MAKE-DEFINE-STRUCTURE-TYPE to match new
 definition.

---
 v7/src/edwin/clscon.scm   | 20 +++++++++++---------
 v7/src/runtime/random.scm |  8 +++++---
 2 files changed, 16 insertions(+), 12 deletions(-)

diff --git a/v7/src/edwin/clscon.scm b/v7/src/edwin/clscon.scm
index 01bb0411b..d726fcede 100644
--- 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 b168387c9..da3660e0a 100644
--- 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
-- 
2.25.1