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.

1 files changed, 1 insertions, 1 deletions

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 ())