From e8988197f24d19558353f945f6c5f106211491b0 Mon Sep 17 00:00:00 2001 From: ksss Date: Fri, 24 Feb 2017 11:06:47 +0900 Subject: Try Binding class --- src/kernel.c | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'src/kernel.c') diff --git a/src/kernel.c b/src/kernel.c index 6cb2e3ad5..193db6470 100644 --- a/src/kernel.c +++ b/src/kernel.c @@ -1129,16 +1129,13 @@ mrb_obj_ceqq(mrb_state *mrb, mrb_value self) return mrb_false_value(); } -static mrb_value -mrb_local_variables(mrb_state *mrb, mrb_value self) +mrb_value +proc_local_variables(mrb_state *mrb, struct RProc *proc) { - struct RProc *proc; mrb_value vars; struct mrb_irep *irep; size_t i; - proc = mrb->c->ci[-1].proc; - if (MRB_PROC_CFUNC_P(proc)) { return mrb_ary_new(mrb); } @@ -1176,6 +1173,13 @@ mrb_local_variables(mrb_state *mrb, mrb_value self) } mrb_value mrb_obj_equal_m(mrb_state *mrb, mrb_value); + +static mrb_value +mrb_local_variables(mrb_state *mrb, mrb_value self) +{ + return proc_local_variables(mrb, mrb->c->ci[-1].proc); +} + void mrb_init_kernel(mrb_state *mrb) { -- cgit v1.2.3