admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Kernel#block_given? always gave false

Browse Source
This commit is contained in:
Yukihiro Matsumoto
2012-10-16 23:46:34 +09:00
parent 27f002496f
commit 8271863fe5
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/kernel.c
+6
View File
@@ -235,6 +235,12 @@ mrb_f_block_given_p_m(mrb_state *mrb, mrb_value self)
bp = mrb->stbase + ci->stackidx + 1;
ci--;
if (ci <= mrb->cibase) return mrb_false_value();
/* block_given? called within block; check upper scope */
if (ci->proc->env && ci->proc->env->stack) {
if (ci->proc->env->stack == mrb->stbase || mrb_nil_p(ci->proc->env->stack[1]))
return mrb_false_value();
return mrb_true_value();
}
if (ci->argc > 0) {
bp += ci->argc;
}