hash-eql: regression: always returns zero.

* hash.c (hash_eql): Use hash_traversal_limit for
the initial value of the limit rather than zero.
Commit 9d11922a82073010d3e2000121b68ed6aaaf28f3 in October
2019 fixed eql_hash to actually make use of the limit, which
broke the assumption that we could use zero.

* tests/010/hash.tl: Add a few tests for hash-equal and
hash-eql.

1 files changed, 1 insertions, 1 deletions

diff --git a/hash.c b/hash.c
index 86b980b2..7ebe95a7 100644
--- a/hash.c
+++ b/hash.c
@@ -1418,7 +1418,7 @@ val maphash(val fun, val hash)
 
 val hash_eql(val obj)
 {
-  int lim = 0;
+  int lim = hash_traversal_limit;
   return num_fast(eql_hash(obj, &lim));
 }