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

make it so that we always use the fixed op for |. Needs improement.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-01-12 10:06:10 +00:00
parent e86a995dd2
commit 02108d2017
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/parser.c
View File

@ -675,9 +675,8 @@ ParseTerm(int prio, JMPBUFF *FailBuff)
} }
curprio = 1000; curprio = 1000;
continue; continue;
} else if (Unsigned(Yap_tokptr->TokInfo) == '|' && } else if (Unsigned(Yap_tokptr->TokInfo) == '|' &&
IsInfixOp(AtomVBar, &opprio, &oplprio, &oprprio) prio >= 1105 && curprio <= 1104) {
&& opprio <= prio && oplprio >= curprio) {
Volatile Term args[2]; Volatile Term args[2];
NextToken; NextToken;
args[0] = t; args[0] = t;
@ -688,7 +687,7 @@ ParseTerm(int prio, JMPBUFF *FailBuff)
Yap_ErrorMessage = "Stack Overflow"; Yap_ErrorMessage = "Stack Overflow";
FAIL; FAIL;
} }
curprio = opprio; curprio = 1105;
continue; continue;
} }
} }