quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*polished code.

Browse Source
This commit is contained in:
Wang Renxin 2015-10-21 19:39:50 +08:00
parent 31b7059f7c
commit 323a539900
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/my_basic.c
View File

@ -2750,18 +2750,15 @@ int _proc_args(mb_interpreter_t* s, _ls_node_t** l, _running_context_t* running,
mb_check(pop_arg(s, (void**)l, va, ca, &ia, r, &arg));
}
if(running->meta == _SCOPE_META_REF) {
var = (_var_t*)(pars->data);
pars = pars->next;
if(running->meta == _SCOPE_META_REF) {
obj = (_object_t*)(_ht_find(running->var_dict, var->name)->data);
var = obj->data.variable;
if(proc_ref)
var->data->ref = false;
} else {
var = (_var_t*)(pars->data);
pars = pars->next;
rnode = _search_identifier_in_scope_chain(s, running, var->name);
if(rnode)
var = ((_object_t*)(rnode->data))->data.variable;