From 565fec45b9adc20f868b6a40c7e5bf1fd410efd0 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 24 Apr 2002 05:58:34 +0000
Subject: * eval.c (proc_to_proc): return self. [new]

* eval.c (block_pass): no need to convert if block is Proc.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2407 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 eval.c | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index 820ab40292..7fcb742430 100644
--- a/eval.c
+++ b/eval.c
@@ -6584,6 +6584,13 @@ proc_to_s(self, other)
     return str;
 }
 
+static VALUE
+proc_to_proc(proc)
+    VALUE proc;
+{
+    return proc;
+}
+
 static VALUE
 block_pass(self, node)
     VALUE self;
@@ -6605,12 +6612,14 @@ block_pass(self, node)
 	POP_ITER();
 	return result;
     }
-    b = rb_check_convert_type(block, T_DATA, "Proc", "to_proc");
-    if (!rb_obj_is_proc(b)) {
-	rb_raise(rb_eTypeError, "wrong argument type %s (expected Proc)",
-		 rb_class2name(CLASS_OF(block)));
+    if (!rb_obj_is_proc(block)) {
+	b = rb_check_convert_type(block, T_DATA, "Proc", "to_proc");
+	if (!rb_obj_is_proc(b)) {
+	    rb_raise(rb_eTypeError, "wrong argument type %s (expected Proc)",
+		     rb_class2name(CLASS_OF(block)));
+	}
+	block = b;
     }
-    block = b;
 
     if (rb_safe_level() >= 1 && OBJ_TAINTED(block)) {
 	if (rb_safe_level() > proc_get_safe_level(block)) {
@@ -7081,6 +7090,7 @@ Init_Proc()
     rb_define_method(rb_cProc, "[]", proc_call, -2);
     rb_define_method(rb_cProc, "==", proc_eq, 1);
     rb_define_method(rb_cProc, "to_s", proc_to_s, 0);
+    rb_define_method(rb_cProc, "to_proc", proc_to_proc, 0);
     rb_define_global_function("proc", rb_f_lambda, 0);
     rb_define_global_function("lambda", rb_f_lambda, 0);
     rb_define_global_function("binding", rb_f_binding, 0);
-- 
cgit v1.2.3