From 55fcb2f23fe2d173fedfdcb194150794355c7593 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 8 May 2016 11:37:30 -0700
Subject: Specify longer PRNG warm-up period.

Use new make-random-state argument available in
TXR 140 to obtain better random numbers from
the /dev/urandom seed. This eliminates obvious
patterns in the digits of the aliases generated
by Tamarind.
---
 random.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/random.tl b/random.tl
index 3b188e4..cd2eb90 100644
--- a/random.tl
+++ b/random.tl
@@ -3,6 +3,6 @@
     (reduce-left (op + (* @1 256) @2) (take noctets (gun (get-byte s))))))
 
 (defun randomize ()
-  (set *random-state* (make-random-state (get-urand-num 8))))
+  (set *random-state* (make-random-state (get-urand-num 8) 128)))
 
 (defun save-random-state ())
-- 
cgit v1.2.3