add mrb_check_hash_type

2 files changed, 7 insertions, 0 deletions

diff --git a/include/mruby/hash.h b/include/mruby/hash.h
index bb12962ca..acb9de93b 100644
--- a/include/mruby/hash.h
+++ b/include/mruby/hash.h
@@ -29,6 +29,7 @@ mrb_value mrb_hash_fetch(mrb_state *mrb, mrb_value hash, mrb_value key, mrb_valu
 mrb_value mrb_hash_delete_key(mrb_state *mrb, mrb_value hash, mrb_value key);
 mrb_value mrb_hash(mrb_state *mrb, mrb_value obj);
 mrb_value mrb_hash_keys(mrb_state *mrb, mrb_value hash);
+mrb_value mrb_check_hash_type(mrb_state *mrb, mrb_value hash);
 
 /* RHASH_TBL allocates st_table if not available. */
 #define RHASH(obj)   ((struct RHash*)((obj).value.p))
diff --git a/src/hash.c b/src/hash.c
index c7a419250..26d9b78b0 100644
--- a/src/hash.c
+++ b/src/hash.c
@@ -187,6 +187,12 @@ mrb_hash_modify_check(mrb_state *mrb, mrb_value hash)
   //if (OBJ_FROZEN(hash)) mrb_error_frozen("hash");
 }
 
+mrb_value
+mrb_check_hash_type(mrb_state *mrb, mrb_value hash)
+{
+  return mrb_check_convert_type(mrb, hash, MRB_TT_HASH, "Hash", "to_hash");
+}
+
 khash_t(ht) *
 mrb_hash_tbl(mrb_state *mrb, mrb_value hash)
 {