diff options
| author | Yukihiro "Matz" Matsumoto <[email protected]> | 2014-12-19 18:51:14 +0900 |
|---|---|---|
| committer | Yukihiro "Matz" Matsumoto <[email protected]> | 2014-12-19 18:51:14 +0900 |
| commit | 5014bfb50d911a9ad9b8069ed49db7666b101796 (patch) | |
| tree | e5d58220de5fbb2592cac6195e5b29e97ab156b1 /src/kernel.c | |
| parent | 2732879f3e35d78c59a2bb10c6b09df06853b727 (diff) | |
| download | mruby-5014bfb50d911a9ad9b8069ed49db7666b101796.tar.gz mruby-5014bfb50d911a9ad9b8069ed49db7666b101796.zip | |
block_given? should return false on top-level; ref #2678
Diffstat (limited to 'src/kernel.c')
| -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; |