From 936fd683af8872df0b649c2215a01a855d265c98 Mon Sep 17 00:00:00 2001
From: ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 29 Jun 2007 07:42:16 +0000
Subject: * proc.c (proc_new): fix to return a proc object   which block is
 contained.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@12662 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog | 5 +++++
 proc.c    | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index a59416ac2..9777bf682 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri Jun 29 16:39:06 2007  Koichi Sasada  <ko1@atdot.net>
+
+	* proc.c (proc_new): fix to return a proc object
+	  which block is contained.
+
 Fri Jun 29 15:43:59 2007  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* numeric.c (fix_pow): get rid of division by zero.  reported by
diff --git a/proc.c b/proc.c
index 59de71dd6..abf26a68b 100644
--- a/proc.c
+++ b/proc.c
@@ -277,6 +277,10 @@ proc_new(VALUE klass, int is_lambda)
 	}
     }
 
+    if (block->proc) {
+	return block->proc;
+    }
+
     procval = vm_make_proc(th, cfp, block);
 
     if (is_lambda) {
-- 
cgit