This commit is contained in:
Vitor Santos Costa 2016-08-01 19:14:51 -05:00
parent afc6e64db2
commit 1d84d39b00

View File

@ -1699,7 +1699,8 @@ bool Yap_addclause(Term t, yamop *cp, Term tmode, Term mod, Term *t4ref)
mode = assertz;
} else {
Yap_Error(DOMAIN_ERROR_OUT_OF_RANGE, tmode,
"compilation mode used to assert") return false;
"compilation mode used to assert");
return false;
}
if (IsApplTerm(t) && FunctorOfTerm(t) == FunctorAssert)
tf = ArgOfTerm(1, t);