1 files changed, 8 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 48f844c506..b72b70fdd8 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;