From c07f24cd18ab41117f6ec3b9a1246786e4d0d8bf Mon Sep 17 00:00:00 2001 From: "Yukihiro \"Matz\" Matsumoto" Date: Tue, 23 Jun 2020 09:14:59 +0900 Subject: Change flag names in preparation of `REnv` refactoring. --- src/kernel.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/kernel.c') diff --git a/src/kernel.c b/src/kernel.c index 8a78de67d..8f0c9c7b5 100644 --- a/src/kernel.c +++ b/src/kernel.c @@ -160,7 +160,7 @@ mrb_f_block_given_p_m(mrb_state *mrb, mrb_value self) /* use saved block arg position */ bidx = MRB_ENV_BIDX(e); /* bidx may be useless (e.g. define_method) */ - if (bidx >= MRB_ENV_STACK_LEN(e)) + if (bidx >= MRB_ENV_LEN(e)) return mrb_false_value(); bp = &e->stack[bidx]; } -- cgit v1.2.3