removeindexation needs clauses to work.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1286 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-04-28 19:47:56 +00:00
parent 767eb026fb
commit d4d3a14c7a

View File

@ -1932,7 +1932,8 @@ record_lu_at(int position, LogUpdClause *ocl, Term t)
return NULL; return NULL;
} }
WRITE_LOCK(pe->PRWLock); WRITE_LOCK(pe->PRWLock);
Yap_RemoveIndexation(pe); if(pe->cs.p_code.NOfClauses > 1)
Yap_RemoveIndexation(pe);
if (position == MkFirst) { if (position == MkFirst) {
/* add before current clause */ /* add before current clause */
cl->ClNext = ocl; cl->ClNext = ocl;