make sure syntax_error receives a global variable (obs from Jose Santos).
This commit is contained in:
parent
ca12a4b959
commit
9e5a25c61e
|
@ -3760,6 +3760,8 @@ syntax_error (TokEntry * tokptr, int sno, Term *outp)
|
||||||
Term *error = tf+3;
|
Term *error = tf+3;
|
||||||
CELL *Hi = H;
|
CELL *Hi = H;
|
||||||
|
|
||||||
|
/* make sure to globalise variable */
|
||||||
|
Yap_unify(*outp, MkVarTerm());
|
||||||
start = tokptr->TokPos;
|
start = tokptr->TokPos;
|
||||||
clean_vars(Yap_VarTable);
|
clean_vars(Yap_VarTable);
|
||||||
clean_vars(Yap_AnonVarTable);
|
clean_vars(Yap_AnonVarTable);
|
||||||
|
|
Reference in New Issue