From 6001fe828cb32dca33e35a0d3370e1ac87f39971 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 3 Mar 1999 11:22:32 +0000 Subject: [PATCH] * slib.scm (make-random-state): Added for compatibility. --- ice-9/slib.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/ice-9/slib.scm b/ice-9/slib.scm index 2bd0c00e4..3b00f8549 100644 --- a/ice-9/slib.scm +++ b/ice-9/slib.scm @@ -178,6 +178,17 @@ (define (output-port-height . arg) 24) (define (identity x) x) +;;; {Random numbers} +;;; +(define-public (make-random-state . args) + (let ((seed (if (null? args) *random-state* (car args)))) + (cond ((string? seed)) + ((number? seed) (set! seed (number->string seed))) + (else (let () + (require 'object->string) + (set! seed (object->limited-string seed 50))))) + (seed->random-state seed))) + ;;; {Time} ;;; -- 2.20.1