introduce CutPoint heap tag so that they can be offset by call_continuation/1

2023-06-29 12:14:06 -06:00
parent 83f352b95e
commit c36bd4dc07
7 changed files with 54 additions and 21 deletions
--- a/src/machine/machine_state.rs
+++ b/src/machine/machine_state.rs
@@ -821,7 +821,7 @@ impl MachineState {
        let b = self.b;

        read_heap_cell!(value,
-            (HeapCellValueTag::Fixnum, b0) => {
+            (HeapCellValueTag::CutPoint, b0) => {
                let b0 = b0.get_num() as usize;

                if b > b0 {