make var names available as a global var
This commit is contained in:
parent
9d48f3c3c0
commit
0b90870185
@ -655,7 +655,8 @@ Yap_read_term(term_t t0, IOSTREAM *inp_stream, struct read_data_t *rd)
|
|||||||
TR = old_TR;
|
TR = old_TR;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (!Yap_unify(v, Yap_GetFromSlot( rd->varnames PASS_REGS))) {
|
LOCAL_VarNames = v;
|
||||||
|
if (!Yap_unify(v, Yap_GetFromSlot( rd->varnames PASS_REGS ))) {
|
||||||
CurrentModule = OCurrentModule;
|
CurrentModule = OCurrentModule;
|
||||||
return FALSE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
@ -682,7 +683,7 @@ Yap_read_term(term_t t0, IOSTREAM *inp_stream, struct read_data_t *rd)
|
|||||||
TR = old_TR;
|
TR = old_TR;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (!Yap_unify(v, Yap_GetFromSlot( rd->variables PASS_REGS))) {
|
if (!Yap_unify(v, Yap_GetFromSlot( rd->variables PASS_REGS ) )) {
|
||||||
CurrentModule = OCurrentModule;
|
CurrentModule = OCurrentModule;
|
||||||
return FALSE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user