>From b428e5faf0cb5b305a4414c84406a9fdda184d08 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Fri, 20 Apr 2012 20:19:00 +0200 Subject: [PATCH] Add remaining hashing procedures to list of automatically randomized procedures (pointed out by Jim Ursetto in ticket #818) --- srfi-69.scm | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-) diff --git a/srfi-69.scm b/srfi-69.scm index 122e8cd..d910607 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"))) -- 1.7.9.1