fix misuse of TypeError trait while fixing #2345

This commit is contained in:
Mark
2024-02-28 20:47:36 -07:00
parent ba362e2fe0
commit 641765858f

View File

@@ -1693,9 +1693,12 @@ impl Machine {
}
}
_ => {
let h = self.machine_st.heap.len();
let call_form = functor!(atom!(":"), [cell(module_name), cell(self.machine_st.registers[2])]);
self.machine_st.heap.extend(call_form);
let stub = functor_stub(atom!("call"), narity + 1);
let err = self.machine_st.type_error(ValidType::Callable, call_form);
let err = self.machine_st.type_error(ValidType::Callable, str_loc_as_cell!(h));
return Err(self.machine_st.error_form(err, stub));
}
);