some_recordedp never gets a third argument bound
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@726 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
19
C/dbase.c
19
C/dbase.c
@@ -3033,25 +3033,6 @@ p_somercdedp(void)
|
||||
DBProp AtProp;
|
||||
Register Term twork = Deref(ARG1); /* initially working with
|
||||
* ARG1 */
|
||||
Term t3 = Deref(ARG3);
|
||||
if (!IsVarTerm(t3)) {
|
||||
if (!IsDBRefTerm(t3)) {
|
||||
cut_fail();
|
||||
} else {
|
||||
DBRef ref = DBRefOfTerm(t3);
|
||||
LOCK(ref->lock);
|
||||
if (ref == NULL
|
||||
|| DEAD_REF(ref)
|
||||
|| !Yap_unify(ARG2,GetDBTerm(ref))
|
||||
|| !UnifyDBKey(ref,CodeDBBit,ARG1)) {
|
||||
UNLOCK(ref->lock);
|
||||
cut_fail();
|
||||
} else {
|
||||
UNLOCK(ref->lock);
|
||||
cut_succeed();
|
||||
}
|
||||
}
|
||||
}
|
||||
if (EndOfPAEntr(AtProp = FetchDBPropFromKey(twork, MkCode, FALSE, "some_recorded/3"))) {
|
||||
return(FALSE);
|
||||
}
|
||||
|
Reference in New Issue
Block a user