* eval.c (proc_alloc): add proper check for creation of a lambda

  without a block.


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

2 files changed, 10 insertions, 5 deletions

diff --git a/ChangeLog b/ChangeLog
index c2742a258..714ceec3b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Feb 22 09:22:40 2006  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* eval.c (proc_alloc): add proper check for creation of a lambda
+	  without a block.
+
 Tue Feb 21 02:07:39 2006  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* parse.y (f_arglist): should set command_start = Qtrue for
diff --git a/eval.c b/eval.c
index e3e06976c..536e5abdd 100644
--- a/eval.c
+++ b/eval.c
@@ -2124,7 +2124,7 @@ copy_node_scope(NODE *node, NODE *rval)
     }\
 } while (0)
 
-#define SETUP_ARGS(anode) SETUP_ARGS0(anode, anode->nd_alen,0)
+#define SETUP_ARGS(anode) SETUP_ARGS0(anode,anode->nd_alen,0)
 
 #define ZSUPER_ARGS() do {\
     argc = ruby_frame->argc;\
@@ -3451,7 +3451,7 @@ rb_eval(VALUE self, NODE *n)
 
 	    recv = rb_eval(self, node->nd_recv);
 	    rval = node->nd_args->nd_head;
-	    SETUP_ARGS0(node->nd_args->nd_next, node->nd_args->nd_alen-1,1);
+	    SETUP_ARGS0(node->nd_args->nd_next,node->nd_args->nd_alen-1,1);
 	    val = rb_funcall3(recv, aref, argc, argv);
 	    switch (node->nd_mid) {
 	    case 0: /* OR */
@@ -3467,7 +3467,7 @@ rb_eval(VALUE self, NODE *n)
 	      val = rb_funcall3(val, node->nd_mid, 1, &tmp);
 	    }
 	    argv[argc] = val;
-	    rb_funcall2(recv, aset, argc+1, argv);
+	    rb_funcall3(recv, aset, argc+1, argv);
 	    result = val;
 	}
 	break;
@@ -3493,7 +3493,7 @@ rb_eval(VALUE self, NODE *n)
 	      val = rb_funcall3(val, node->nd_next->nd_mid, 1, &tmp);
 	    }
 
-	    rb_funcall2(recv, node->nd_next->nd_aid, 1, &val);
+	    rb_funcall3(recv, node->nd_next->nd_aid, 1, &val);
 	    result = val;
 	}
 	break;
@@ -8147,7 +8147,7 @@ proc_alloc(VALUE klass, int lambda)
     struct FRAME *frame = ruby_frame;
     struct BLOCK *data;
 
-    if (!rb_block_given_p() && !rb_f_block_given_p()) {
+    if (!rb_block_given_p() && (lambda || !rb_f_block_given_p())) {
 	rb_raise(rb_eArgError, "tried to create Proc object without a block");
     }
     if (!lambda) {