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

instead of returning nonnegative exact integers.
2009-08-26 18:23:07 +03:00 · 2009-08-26 18:23:07 +03:00 · 57de27827a
parent c0233db219
commit 57de27827a
2 changed files with 2 additions and 2 deletions
--- a/scheme/ikarus.hash-tables.ss
+++ b/scheme/ikarus.hash-tables.ss
@ -395,7 +395,7 @@
           [else 
            (lambda (k)
              (let ([i (f k)])
-                (if (and (or (fixnum? i) (bignum? i)) (>= i 0))
+                (if (or (fixnum? i) (bignum? i))
                    i
                    (die #f "invalid return value from hash function" i))))]))
       (unless (procedure? hashf)
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1846
+1847