From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 7 Nov 2018 17:15:13 +0000 (+0000)
Subject: Randomize the dispatch tag cache; don't copy the system state.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~116^2~21
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5db171723169af99db7a967f38cc076e6543e012;p=mit-scheme.git

Randomize the dispatch tag cache; don't copy the system state.
---

diff --git a/src/runtime/dispatch-tag.scm b/src/runtime/dispatch-tag.scm
index b34755ac3..5c514916f 100644
--- a/src/runtime/dispatch-tag.scm
+++ b/src/runtime/dispatch-tag.scm
@@ -104,7 +104,7 @@ USA.
 	 (int:quotient
 	  (let loop ((n 2)) (if (fix:fixnum? n) (loop (int:* n 2)) n))
 	  tag-cache-number-adds-ok))
-	(state (make-random-state)))
+	(state (make-random-state #t)))
     (lambda ()
       (random modulus state))))