From 6af39064ca9d9a78d0e12e64cb817f9080cf3793 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 22 Feb 2019 20:48:37 -0800
Subject: 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.
---
 hash.c | 6 ++++++
 hash.h | 1 +
 2 files changed, 7 insertions(+)

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);
-- 
cgit v1.2.3