* proc.c (proc_to_s): show is_lambda.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@12583 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

2 files changed, 9 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index bc2996c16..4f4a80751 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri Jun 22 19:33:49 2007  Tanaka Akira  <akr@fsij.org>
+
+	* proc.c (proc_to_s): show is_lambda.
+
 Thu Jun 21 20:36:12 2007  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* hash.c (rb_hash_sort): remove hash specific implementation.
diff --git a/proc.c b/proc.c
index 1910c26e8..3b16e3f7e 100644
--- a/proc.c
+++ b/proc.c
@@ -552,12 +552,14 @@ proc_to_s(VALUE self)
 	if (iseq->insn_info_tbl) {
 	    line_no = iseq->insn_info_tbl[0].line_no;
 	}
-	str = rb_sprintf("#<%s:%lx@%s:%d>", cname, self,
+	str = rb_sprintf("#<%s:%lx@%s:%d%s>", cname, self,
 			 RSTRING_PTR(iseq->filename),
-			 line_no);
+			 line_no,
+                         proc->is_lambda ? " (lambda)" : "");
     }
     else {
-	str = rb_sprintf("#<%s:%p>", cname, proc->block.iseq);
+	str = rb_sprintf("#<%s:%p%s>", cname, proc->block.iseq,
+                         proc->is_lambda ? " (lambda)" : "");
     }
 
     if (OBJ_TAINTED(self)) {