From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 7 Nov 2018 16:00:48 +0000 (+0000)
Subject: Use a fresh random state for randomized tests.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~116^2~29
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4fcb6ef15fbb7073c189dcc09711a76c544c81fc;p=mit-scheme.git

Use a fresh random state for randomized tests.
---

diff --git a/tests/runtime/test-random.scm b/tests/runtime/test-random.scm
index af5640f0a..d68aa8286 100644
--- a/tests/runtime/test-random.scm
+++ b/tests/runtime/test-random.scm
@@ -56,7 +56,7 @@ USA.
     (lambda ()
       ;; XXX Should make the seed more compact than just the original
       ;; complete state.
-      (let ((state (make-random-state)))
+      (let ((state (make-random-state #t)))
 	(with-test-properties
 	    (lambda ()
 	      ;; Ensure we don't accidentally use the global state.