2 files changed, 7 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");
diff --git a/hash.h b/hash.h
index e056d611..baa27529 100644
--- a/hash.h
+++ b/hash.h
@@ -42,6 +42,7 @@ val pushhash(val hash, val key, val value);
 val remhash(val hash, val key);
 val clearhash(val hash);
 val hash_count(val hash);
+val us_hash_count(val hash);
 val get_hash_userdata(val hash);
 val set_hash_userdata(val hash, val data);
 val hashp(val obj);