From 809a9c5b6d1454e623e929afdf5a878bdb4023dc Mon Sep 17 00:00:00 2001 From: nobu Date: Fri, 5 Oct 2001 05:49:02 +0000 Subject: * eval.c (proc_s_new): revived. * eval.c (Init_Proc): define Proc.new instead of Proc.allocate to inhibit from creating uninitialized Proc. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1771 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- eval.c | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 8b37fdf20c..d7608bf22b 100644 --- a/eval.c +++ b/eval.c @@ -6364,6 +6364,18 @@ proc_new(klass) return proc; } +static VALUE +proc_s_new(argc, argv, klass) + int argc; + VALUE *argv; + VALUE klass; +{ + VALUE proc = proc_new(klass); + + rb_obj_call_init(proc, argc, argv); + return proc; +} + VALUE rb_f_lambda() { @@ -6969,7 +6981,8 @@ Init_Proc() rb_eSysStackError = rb_define_class("SystemStackError", rb_eStandardError); rb_cProc = rb_define_class("Proc", rb_cObject); - rb_define_singleton_method(rb_cProc, "allocate", proc_new, 0); + rb_undef_method(CLASS_OF(rb_cProc), "allocate"); + rb_define_singleton_method(rb_cProc, "new", proc_s_new, -1); rb_define_method(rb_cProc, "call", proc_call, -2); rb_define_method(rb_cProc, "yield", proc_yield, -2); -- cgit v1.2.3