fix regress in style_check caused by bad argument to add clause
This commit is contained in:
@@ -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;
|
||||
}
|
||||
|
Reference in New Issue
Block a user