diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

undo current_predicate changes and make iso fully use LU semantics.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2083 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2008-02-08 09:49:21 +00:00
parent 62c7d4aa8b
commit 7a9e7816c9
5 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
C/dbase.c
View File

@@ -1962,7 +1962,7 @@ p_rcda(void)
}
UNLOCK(pe->PELock);
} else {
TRef = 0L;
TRef = MkDBRefTerm(record(MkFirst, t1, t2, Unsigned(0)));
}
if (Yap_Error_TYPE != YAP_NO_ERROR) {
if (recover_from_record_error(3)) {
@@ -2073,7 +2073,7 @@ p_rcdz(void)
}
UNLOCK(pe->PELock);
} else {
TRef = 0L;
TRef = MkDBRefTerm(record(MkLast, t1, t2, Unsigned(0)));
}
if (Yap_Error_TYPE != YAP_NO_ERROR) {
if (recover_from_record_error(3)) {