bad list keeping

This commit is contained in:
Vítor Santos Costa II 2010-04-08 00:52:47 +01:00
parent 143022e6aa
commit 5aed596919

View File

@ -713,7 +713,8 @@ Yap_NewPredPropByFunctor(FunctorEntry *fe, Term cur_mod)
}
WRITE_UNLOCK(PredHashRWLock);
/* make sure that we have something here */
RepPredProp(fe->PropsOfFE)->NextOfPE = fe->PropsOfFE;
p->NextOfPE = RepPredProp(fe->PropsOfFE)->NextOfPE;
RepPredProp(fe->PropsOfFE)->NextOfPE = AbsPredProp(p);
} else {
fe->PropsOfFE = AbsPredProp(p);
p->NextOfPE = NIL;