~ chicken-core (chicken-5) 6731ef7a00483dae266ec846c6365e99ecd4229a

commit 6731ef7a00483dae266ec846c6365e99ecd4229a
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Fri Apr 20 20:19:00 2012 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Fri Apr 20 21:25:42 2012 +0200

    Add remaining hashing procedures to list of automatically randomized procedures
    
    (pointed out by Jim Ursetto in ticket #818)
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/srfi-69.scm b/srfi-69.scm
index 122e8cdb..67ee4a85 100644
--- a/srfi-69.scm
+++ b/srfi-69.scm
@@ -413,10 +413,12 @@
 (define *make-hash-function
   (let ((eq?-hash eq?-hash) (eqv?-hash eqv?-hash) (equal?-hash equal?-hash)
 	(hash hash) (string-hash string-hash) (string-hash-ci string-hash-ci)
-	(number-hash number-hash))
+	(number-hash number-hash) (object-uid-hash object-uid-hash)
+        (symbol-hash symbol-hash) (keyword-hash keyword-hash))
     (lambda (user-function)
       (if (memq user-function (list eq?-hash eqv?-hash equal?-hash hash
-				    string-hash string-hash-ci number-hash))
+				    string-hash string-hash-ci number-hash
+				    object-uid-hash symbol-hash keyword-hash))
 	  ;; Don't add unnecessary bounds checks for procedures known to be
 	  ;; well-behaved (these are not user-*created* functions)
 	  (let ((randomization (##core#inline "C_rnd_fix")))