get rid of small bugs/warnings

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1874 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2007-05-02 11:12:39 +00:00
parent d79a6f8dcf
commit 2d3d3ff22c
2 changed files with 4 additions and 2 deletions

View File

@@ -644,7 +644,7 @@ ParseTerm(int prio, JMPBUFF *FailBuff)
if (IsPosfixOp(opinfo, &opprio, &oplprio)
&& opprio <= prio && oplprio >= curprio) {
/* parse as posfix operator */
Functor fun = Yap_MkFunctor((Atom) Yap_tokptr->TokInfo, 1);
Functor func = Yap_MkFunctor((Atom) Yap_tokptr->TokInfo, 1);
if (func == NULL) {
Yap_ErrorMessage = "Heap Overflow";
FAIL;