From 57de27827a26b915c4831e54248c2ab6409c385f Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Wed, 26 Aug 2009 18:23:07 +0300
Subject: [PATCH] custom hashtables' hash functions can now return any exact
 integer, instead of returning nonnegative exact integers.

---
 scheme/ikarus.hash-tables.ss | 2 +-
 scheme/last-revision         | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/ikarus.hash-tables.ss b/scheme/ikarus.hash-tables.ss
index 7f71e63..d747b60 100644
--- 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)
diff --git a/scheme/last-revision b/scheme/last-revision
index cd6a6c7..e1d33be 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1846
+1847