From 5db171723169af99db7a967f38cc076e6543e012 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 7 Nov 2018 17:15:13 +0000 Subject: [PATCH] Randomize the dispatch tag cache; don't copy the system state. --- src/runtime/dispatch-tag.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) -- 2.25.1