replace call with $call in more meta-predicates

This commit is contained in:
Mark Thom
2022-06-05 20:53:07 -06:00
parent e9bb35c895
commit 336311ecc8
2 changed files with 17 additions and 10 deletions

View File

@@ -627,6 +627,8 @@ impl MachineState {
#[inline]
pub(crate) fn install_new_block(&mut self, value: HeapCellValue) -> usize {
let value = self.store(self.deref(value));
self.block = self.b;
self.unify_fixnum(Fixnum::build_with(self.block as i64), value);
@@ -4004,7 +4006,7 @@ impl Machine {
#[inline(always)]
pub(crate) fn inference_level(&mut self) {
let a1 = self.machine_st.registers[1];
let a1 = self.machine_st.store(self.machine_st.deref(self.machine_st.registers[1]));
let a2 = self.machine_st.store(self.machine_st.deref(self.machine_st.registers[2]));
let bp = cell_as_fixnum!(a2).get_num() as usize;