fix missing unlock.

This commit is contained in:
Vitor Santos Costa 2010-02-21 00:45:38 +00:00
parent 692a482adf
commit 12672a77e1

View File

@ -4631,6 +4631,7 @@ p_instance(void)
if (IsVarTerm(t2)) {
Yap_unify(ARG2, (t2 = Yap_MkNewApplTerm(f,arity)));
} else if (!IsApplTerm(t2) || FunctorOfTerm(t2) != f) {
UNLOCK(ap->PELock);
return FALSE;
}
ptr = RepAppl(t2)+1;