diff options
Diffstat (limited to 'hash.scm')
| -rw-r--r-- | hash.scm | 37 |
1 files changed, 19 insertions, 18 deletions
@@ -17,24 +17,6 @@ ;promotional, or sales literature without prior written consent in ;each case. -(define (hash:hash-symbol sym n) - (hash:hash-string (symbol->string sym) n)) - -;;; This can overflow on implemenatations where inexacts have a larger -;;; range than exact integers. -(define hash:hash-number - (if (provided? 'inexact) - (lambda (num n) - (if (integer? num) - (modulo (if (exact? num) num (inexact->exact num)) n) - (hash:hash-string-ci - (number->string (if (exact? num) (exact->inexact num) num)) - n))) - (lambda (num n) - (if (integer? num) - (modulo num n) - (hash:hash-string-ci (number->string num) n))))) - (define (hash:hash-string-ci str n) (let ((len (string-length str))) (if (> len 5) @@ -57,6 +39,25 @@ h))))) (define hash:hash-string hash:hash-string-ci) + +(define (hash:hash-symbol sym n) + (hash:hash-string (symbol->string sym) n)) + +;;; This can overflow on implemenatations where inexacts have a larger +;;; range than exact integers. +(define hash:hash-number + (if (provided? 'inexact) + (lambda (num n) + (if (integer? num) + (modulo (if (exact? num) num (inexact->exact num)) n) + (hash:hash-string-ci + (number->string (if (exact? num) (exact->inexact num) num)) + n))) + (lambda (num n) + (if (integer? num) + (modulo num n) + (hash:hash-string-ci (number->string num) n))))) + ;@ (define (hash obj n) (let hs ((d 10) (obj obj)) |