diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make sure syntax_error receives a global variable (obs from Jose Santos).

This commit is contained in:
Vitor Santos Costa 2010-03-02 22:21:48 +00:00
parent ca12a4b959
commit 9e5a25c61e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/iopreds.c
View File

@ -3760,6 +3760,8 @@ syntax_error (TokEntry * tokptr, int sno, Term *outp)
Term *error = tf+3;
CELL *Hi = H;
/* make sure to globalise variable */
Yap_unify(*outp, MkVarTerm());
start = tokptr->TokPos;
clean_vars(Yap_VarTable);
clean_vars(Yap_AnonVarTable);