diff options
| -rw-r--r-- | src/kernel.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/kernel.c b/src/kernel.c index cb938f152..b6abfd265 100644 --- a/src/kernel.c +++ b/src/kernel.c @@ -189,6 +189,9 @@ mrb_f_block_given_p_m(mrb_state *mrb, mrb_value self) if (ci->proc->env && ci->proc->env->stack) { mrb_value *sp = ci->proc->env->stack; + /* top-level does not have block slot (alway false) */ + if (sp == mrb->c->stbase) + return mrb_false_value(); while (mrb->c->cibase < ci) { if (ci->stackent == sp) { break; |