fix regress in style_check caused by bad argument to add clause

This commit is contained in:
Vítor Santos Costa
2016-02-21 11:30:13 +00:00
parent 504734c879
commit 26013e2fb9
5 changed files with 27 additions and 30 deletions

View File

@@ -754,7 +754,7 @@ void *YAPPrologPredicate::assertClause( YAPTerm clause, bool last, YAPTerm sourc
return 0;
}
Term *tref = &ntt;
if (Yap_addclause(ntt, codeaddr, (last ? 0 : 2), Yap_CurrentModule(), tref)) {
if (Yap_addclause(ntt, codeaddr, (last ? TermAssertz : TermAsserta), Yap_CurrentModule(), tref)) {
RECOVER_MACHINE_REGS();
}
return tref;