fix assert(a|z)/1 errors

This commit is contained in:
Mark
2023-07-13 17:12:05 -06:00
parent bd720b49f3
commit ba2cd43144
2 changed files with 32 additions and 11 deletions

View File

@@ -716,6 +716,22 @@ impl VariableClassifier {
),
);
}
var @ Term::Var(..) => {
if update_chunk_data(self, atom!("call"), 1) {
build_stack.add_chunk();
}
self.probe_body_term(1, 1, &var);
build_stack.push_chunk_term(
clause_to_query_term(
loader,
atom!("call"),
vec![var],
self.call_policy,
),
);
}
Term::Literal(_, Literal::Atom(atom!("!")) | Literal::Char('!')) => {
if self.global_cut_var_num.is_none() {
self.global_cut_var_num = Some(self.var_num);