~ chicken-core (chicken-5) 12ed9e08d8fa8b21c0d7d02d8b2b4f4705ccf552

commit 12ed9e08d8fa8b21c0d7d02d8b2b4f4705ccf552
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Nov 3 14:03:56 2017 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Nov 3 14:03:56 2017 +0100

    internal module: use rand(3) for hash table seeding

diff --git a/internal.scm b/internal.scm
index 812f77e1..e593dc59 100644
--- a/internal.scm
+++ b/internal.scm
@@ -162,7 +162,7 @@
   (let ((cache-s #f)
 	(cache-h #f)
 	;; NOTE: All low-level hash tables share the same randomization factor
-	(rand (##core#inline "C_random_fixnum" #x10000)))
+	(rand (##core#inline "C_rand" #x10000)))
     (lambda (s n)
       (if (eq? s cache-s)
 	  (##core#inline "C_fixnum_modulo" cache-h n)