From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 31 Mar 1998 08:41:43 +0000 (+0000)
Subject: Fix thinko -- random-state objects must have unparser.
X-Git-Tag: 20090517-FFI~4821
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d4d14bf20039e4ba79d30c8d3c9d046aae59de72;p=mit-scheme.git

Fix thinko -- random-state objects must have unparser.
---

diff --git a/v7/src/runtime/random.scm b/v7/src/runtime/random.scm
index 3102a9668..c68d54c32 100644
--- a/v7/src/runtime/random.scm
+++ b/v7/src/runtime/random.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: random.scm,v 14.16 1996/07/26 20:00:31 adams Exp $
+$Id: random.scm,v 14.17 1998/03/31 08:41:43 cph Exp $
 
-Copyright (c) 1993-96 Massachusetts Institute of Technology
+Copyright (c) 1993-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -199,7 +199,7 @@ MIT in each case. |#
 (define (finalize-random-state-type!)
   (named-structure/set-tag-description! random-state-tag
     (make-define-structure-type 'VECTOR
-				'RECORD-STATE
+				'RANDOM-STATE
 				'(INDEX BORROW VECTOR)
 				'(1 2 3)
-				#f)))
\ No newline at end of file
+				(standard-unparser-method 'RANDOM-STATE #f))))
\ No newline at end of file