From 28a0d167792e0ad19b78e85252d855df31526292 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 9 Aug 1999 19:30:18 +0000 Subject: [PATCH] More changes for cold-load problems. --- v7/src/runtime/random.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 -- 2.25.1