hash: observe count in eql-based hash.

* hash.c (eql_hash): Decrement count and bail if zero.

1 files changed, 3 insertions, 0 deletions

diff --git a/hash.c b/hash.c
index 39173a15..f06fea61 100644
--- a/hash.c
+++ b/hash.c
@@ -283,6 +283,9 @@ ucnum equal_hash(val obj, int *count, ucnum seed)
 
 static ucnum eql_hash(val obj, int *count)
 {
+  if ((*count)-- <= 0)
+    return 0;
+
   switch (tag(obj)) {
   case TAG_PTR:
     switch (type(obj)) {