hashing: provide unsafe hash count.

* hash.c (us_hash_count): New function. Blindly assumes that
the argument is a hash.

* hash.h (us_hash_count): Declared.

1 files changed, 6 insertions, 0 deletions

diff --git a/hash.c b/hash.c
index eadfe959..3dde4dca 100644
--- a/hash.c
+++ b/hash.c
@@ -886,6 +886,12 @@ val hash_count(val hash)
   return num_fast(h->count);
 }
 
+val us_hash_count(val hash)
+{
+  struct hash *h = coerce(struct hash *, hash->co.handle);
+  return num_fast(h->count);
+}
+
 val get_hash_userdata(val hash)
 {
   val self = lit("get-hash-userdata");