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

revert previous commit.

Browse Source
This commit is contained in:
Vítor Manuel de Morais Santos Costa 2010-01-14 15:57:16 +00:00
parent 69caa6d5df
commit ac104aac9c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/parser.c
View File

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