[ruby-dev:25365] method(:p).to_proc.call([])

酒井です。

ふと気がついたのですが、method(:p).call([]) では [] と表示されるのに、
method(:p).to_proc.call([]) では何も表示されません。
avalue->svalue->avalue の変換過程で引数が失われてしまっているようです。
これは意図された挙動でしょうか?

もし意図された挙動でないのならば、引数をsvalueに変換せずに、
avalueのまま引き渡した方が良いのではないかと思います。


Index: eval.c
===================================================================
RCS file: /src/ruby/eval.c,v
retrieving revision 1.747
diff -u -p -r1.747 eval.c
--- eval.c	16 Dec 2004 15:01:48 -0000	1.747
+++ eval.c	29 Dec 2004 05:53:33 -0000
@@ -8164,7 +8164,10 @@ proc_invoke(proc, args, self, klass)
 
     Data_Get_Struct(proc, struct BLOCK, data);
     pcall = (data->flags & BLOCK_LAMBDA) ? YIELD_LAMBDA_CALL : 0;
-    if (!pcall && RARRAY(args)->len == 1) {
+    if (!(data->body &&
+          (nd_type(data->body) == NODE_CFUNC || nd_type(data->body) == NODE_IFUNC) &&
+          data->body->nd_state == YIELD_FUNC_AVALUE) &&
+        !pcall && RARRAY(args)->len == 1) {
 	avalue = Qfalse;
 	args = RARRAY(args)->ptr[0];
     }
@@ -9174,7 +9177,7 @@ bmcall(args, method)
 {
     volatile VALUE a;
 
-    a = svalue_to_avalue(args);
+    a = args;
     return method_call(RARRAY(a)->len, RARRAY(a)->ptr, method);
 }
 
@@ -9214,7 +9217,7 @@ method_proc(method)
     Data_Get_Struct(proc, struct BLOCK, bdata);
     bdata->body->nd_file = mdata->body->nd_file;
     nd_set_line(bdata->body, nd_line(mdata->body));
-    bdata->body->nd_state = YIELD_FUNC_SVALUE;
+    bdata->body->nd_state = YIELD_FUNC_AVALUE;
     bdata->flags |= BLOCK_FROM_METHOD;
 
     return proc;

--
酒井 政裕 / Masahiro Sakai