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); WRITE_UNLOCK(PredHashRWLock);
/* make sure that we have something here */ /* 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 { } else {
fe->PropsOfFE = AbsPredProp(p); fe->PropsOfFE = AbsPredProp(p);
p->NextOfPE = NIL; p->NextOfPE = NIL;