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

improve previous patch for syntax_error.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-03-02 23:18:04 +00:00
parent 910d04a786
commit 24f5b060d5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/iopreds.c
View File

@ -3847,7 +3847,11 @@ syntax_error (TokEntry * tokptr, int sno, Term *outp)
} }
tokptr = tokptr->TokNext; tokptr = tokptr->TokNext;
} }
tf[0] = Yap_MkApplTerm(Yap_MkFunctor(AtomRead,1),1,outp); if (IsVarTerm(*outp) && (VarOfTerm(*outp) > H || VarOfTerm(*outp) < H0)) {
tf[0] = Yap_MkNewApplTerm(Yap_MkFunctor(AtomRead,1),1);
} else {
tf[0] = Yap_MkApplTerm(Yap_MkFunctor(AtomRead,1),1,outp);
}
{ {
Term t[3]; Term t[3];