* eval.c (rb_proc_new): make Proc from C function. [new]

* intern.h (rb_proc_new): prototype.


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

1 files changed, 8 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 48f844c50..b72b70fdd 100644
--- a/eval.c
+++ b/eval.c
@@ -6998,6 +6998,14 @@ umcall(args, method)
     return umethod_call(0, 0, method);
 }
 
+VALUE
+rb_proc_new(func, val)
+    VALUE (*func)(ANYARGS);	/* VALUE yieldarg[, VALUE procarg] */
+    VALUE val;
+{
+    return rb_iterate((VALUE(*)_((VALUE)))mproc, 0, func, val);
+}
+
 static VALUE
 method_proc(method)
     VALUE method;