[ruby-dev:13043] Proc arity

手続きオブジェクトの引数の処理で、
引数の個数が0個または2個以上のときは、実引数の個数も
一致する必要があるのに、引数が一個の場合だけ実引数の個数
が幾つでも構わないというのは、おかしいと思います。
(arityが-1を返していることには合っているのですが、
arityが-1であることの理由がわかりません)

q = lambda { || }
p q.arity       # => 0
q.call(1)       # => wrong # of arguments (1 for 0) (ArgumentError)

q = lambda { |x| }
p q.arity       # => -1
q.call()        # => OK
q.call(1,2)     # => OK

q = lambda { |x,y| }

p q.arity       # => 2
q.call(1)       # => wrong # of arguments (1 for 2) (ArgumentError)
q.call(1,2,3)   # => wrong # of arguments (3 for 2) (ArgumentError)


--- eval.c.orig	Tue Apr 24 15:44:12 2001
+++ eval.c	Thu Apr 26 16:58:31 2001
@@ -3534,9 +3534,19 @@
 		    massign(self, block->var, val, acheck);
 		else {
 		    /* argument adjust for proc_call etc. */
-		    if (acheck && val != Qundef && 
-			TYPE(val) == T_ARRAY && RARRAY(val)->len == 1) {
-			val = RARRAY(val)->ptr[0];
+		    if (acheck) {
+			if (val == Qundef)
+			    rb_raise(rb_eArgError, "wrong # of arguments (0 for 1)");
+			if (TYPE(val) == T_ARRAY) {
+			    if (RARRAY(val)->len == 1) {
+				val = RARRAY(val)->ptr[0];
+			    }
+			    else {
+				rb_raise(rb_eArgError,
+					 "wrong # of arguments (%d for 1)",
+					 RARRAY(val)->len);
+			    }
+			}
 		    }
 		    assign(self, block->var, val, acheck);
 		}
@@ -6343,7 +6353,7 @@
     if (data->var == (NODE*)1) return INT2FIX(0);
     switch (nd_type(data->var)) {
       default:
-	return INT2FIX(-1);
+	return INT2FIX(1);
       case NODE_MASGN:
 	list = data->var->nd_head;
 	n = 0;
----
小迫＠ソフネック   渋谷区恵比寿1-15-1