conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

custom hashtables' hash functions can now return any exact integer, 

instead of returning nonnegative exact integers.
This commit is contained in:
Abdulaziz Ghuloum 2009-08-26 18:23:07 +03:00
parent c0233db219
commit 57de27827a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/ikarus.hash-tables.ss
View File

@ -395,7 +395,7 @@
[else [else
(lambda (k) (lambda (k)
(let ([i (f k)]) (let ([i (f k)])
(if (and (or (fixnum? i) (bignum? i)) (>= i 0)) (if (or (fixnum? i) (bignum? i))
i i
(die #f "invalid return value from hash function" i))))])) (die #f "invalid return value from hash function" i))))]))
(unless (procedure? hashf) (unless (procedure? hashf)

2
scheme/last-revision
View File

@ -1 +1 @@
1846 1847