From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Aug 1999 19:30:18 +0000 (+0000)
Subject: More changes for cold-load problems.
X-Git-Tag: 20090517-FFI~4486
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=28a0d167792e0ad19b78e85252d855df31526292;p=mit-scheme.git

More changes for cold-load problems.
---

diff --git a/v7/src/runtime/random.scm b/v7/src/runtime/random.scm
index 3eca5504d..1abd81963 100644
--- a/v7/src/runtime/random.scm
+++ b/v7/src/runtime/random.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: random.scm,v 14.20 1999/08/09 19:27:13 cph Exp $
+$Id: random.scm,v 14.21 1999/08/09 19:30:18 cph Exp $
 
 Copyright (c) 1993-1999 Massachusetts Institute of Technology
 
@@ -202,12 +202,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (set! *random-state*
 	(initial-random-state
 	 (congruential-rng (+ (real-time-clock) 123456789))))
+  unspecific)
+
+(define (finalize-random-state-type!)
   (add-event-receiver! event:after-restore
 		       (lambda ()
 			 (set! *random-state* (make-random-state #t))
-			 unspecific)))
-
-(define (finalize-random-state-type!)
+			 unspecific))
   (named-structure/set-tag-description! random-state-tag
     (make-define-structure-type 'VECTOR
 				'RANDOM-STATE