diff options
author | Thomas Bushnell, BSG <tb@debian.org> | 2007-12-28 16:25:32 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:39 -0800 |
commit | d8ae23691ed6392b7f320f5fa7d4dd78ae52c10e (patch) | |
tree | b20b8bc02e854c4c86d39ee22a0638a8b06e01af /hash.scm | |
parent | edd1ebef3ad774e7cbcc2f5918d555bfb0b44091 (diff) | |
parent | 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 (diff) | |
download | slib-debian/3a5-1.tar.gz slib-debian/3a5-1.zip |
Import Debian changes 3a5-1debian/3a5-1
slib (3a5-1) unstable; urgency=low
* New upstream release.
* slib.texi (Library Catalogs): Repeat change from 3a3-3.
* Makefile: Repeat $(htmldir)slib_toc.html changes from 3a2-1.
* guile.init: (library-vicinity): Repeat change from 3a4-2.
* debian/rules (binary-indep): Don't hide .init files in a separate
subdirectory, thus conforming better to the usual slib practice. Put a
symlink in place to ease transitions. (Closes: #407370).
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)) |