summaryrefslogtreecommitdiffstats
path: root/hash.c
diff options
context:
space:
mode:
Diffstat (limited to 'hash.c')
-rw-r--r--hash.c10
1 files changed, 10 insertions, 0 deletions
diff --git a/hash.c b/hash.c
index 214d4e8f..892dfa5c 100644
--- a/hash.c
+++ b/hash.c
@@ -408,6 +408,16 @@ val maphash(val fun, val hash)
return nil;
}
+val hash_eql(val obj)
+{
+ return num(eql_hash(obj) % NUM_MAX);
+}
+
+val hash_equal(val obj)
+{
+ return num(equal_hash(obj) % NUM_MAX);
+}
+
/*
* Called from garbage collector. Hash module must process all weak tables
* that were visited during the marking phase, maintained in the list