ensure pdl is pushed/popped in pairs

2026-05-17 19:45:55 +02:00
parent 8dffd72db5
commit d50d425099
3 changed files with 20 additions and 25 deletions
--- a/src/machine/machine_state.rs
+++ b/src/machine/machine_state.rs
@@ -115,7 +115,7 @@ impl OccursCheckImpl for StoError {
 pub struct MachineState {
    pub atom_tbl: Arc<AtomTable>,
    pub arena: Arena,
-    pub(super) pdl: Vec<HeapCellValue>,
+    pub(super) pdl: Vec<(HeapCellValue, HeapCellValue)>,
    pub(super) s: HeapPtr,
    pub(super) s_offset: usize,
    pub(super) p: usize,