1 files changed, 15 insertions, 0 deletions
diff --git a/vm.c b/vm.c
index 2c34b17e12..4ec0a8f8ae 100644
--- a/vm.c
+++ b/vm.c
@@ -1351,6 +1351,21 @@ call_yarv_end_proc(VALUE data)
     rb_proc_call(data, rb_ary_new2(0));
 }
 
+static inline int
+block_proc_is_lambda(VALUE procval)
+{
+    rb_proc_t *proc;
+
+    if (procval) {
+	GetProcPtr(procval, proc);
+	return proc->is_lambda;
+    }
+    else {
+	return 0;
+    }
+}
+
+
 /*********************************************************/
 /*********************************************************/