From ba2147ba40a147c10da3f8e202b4f78488bab6d9 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 14 Nov 2003 23:54:06 +0000
Subject: * eval.c (rb_method_node): new API to retrieve method body.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4957 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 hash.c | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'hash.c')

diff --git a/hash.c b/hash.c
index 75c07797d3..b2a17698df 100644
--- a/hash.c
+++ b/hash.c
@@ -41,6 +41,14 @@ rb_hash_freeze(hash)
     return rb_obj_freeze(hash);
 }
 
+static VALUE
+rb_hash_frozen_p(hash)
+    VALUE hash;
+{
+    if (OBJ_FROZEN(hash)) return Qtrue;
+    return Qfalse;
+}
+
 VALUE rb_cHash;
 
 static VALUE envtbl;
@@ -1789,6 +1797,7 @@ Init_Hash()
     rb_define_method(rb_cHash,"to_a", rb_hash_to_a, 0);
     rb_define_method(rb_cHash,"to_s", rb_hash_to_s, 0);
     rb_define_method(rb_cHash,"inspect", rb_hash_inspect, 0);
+    rb_define_method(rb_cHash,"frozen?", rb_hash_frozen_p, 0);
 
     rb_define_method(rb_cHash,"==", rb_hash_equal, 1);
     rb_define_method(rb_cHash,"[]", rb_hash_aref, 1);
-- 
cgit v1.2.3