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

@@ -2226,7 +2226,7 @@ X_API char *YAP_CompileClause(Term t) {
codeaddr = Yap_cclause(t, 0, mod, t);
if (codeaddr != NULL) {
t = Deref(ARG1); /* just in case there was an heap overflow */
if (!Yap_addclause(t, codeaddr, TRUE, mod, &tn)) {
if (!Yap_addclause(t, codeaddr, TermAssertz, mod, &tn)) {
YAPLeaveCriticalSection();
return LOCAL_ErrorMessage;
}