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:
parent
767eb026fb
commit
d4d3a14c7a
@ -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;
|
||||||
|
Reference in New Issue
Block a user