1 files changed, 16 insertions, 1 deletions
diff --git a/proc.c b/proc.c
index d316f042be..d9eca588ab 100644
--- a/proc.c
+++ b/proc.c
@@ -652,7 +652,7 @@ proc_to_proc(VALUE self)
  *     eval("param", b)           #=> 99
  */
 
-void
+static void
 bm_mark(struct METHOD *data)
 {
     rb_gc_mark(data->rclass);
@@ -661,6 +661,21 @@ bm_mark(struct METHOD *data)
     rb_gc_mark((VALUE)data->body);
 }
 
+NODE *
+rb_method_body(VALUE method)
+{
+    struct METHOD *data;
+
+    if (TYPE(method) == T_DATA &&
+	RDATA(method)->dmark == (RUBY_DATA_FUNC) bm_mark) {
+	Data_Get_Struct(method, struct METHOD, data);
+	return data->body;
+    }
+    else {
+	return 0;
+    }
+}
+
 NODE *rb_get_method_body(VALUE klass, ID id, ID *idp);
 
 static VALUE