optionally read from machine stack in stackful pre-order iterator (#1812)

src/machine/loader.rs

@@ -1404,7 +1404,7 @@ impl MachineState {
         let term_addr = self[r];
 
         let mut term_stack = vec![];
-        let mut iter = stackful_post_order_iter(&mut self.heap, term_addr);
+        let mut iter = stackful_post_order_iter(&mut self.heap, &mut self.stack, term_addr);
 
         while let Some(addr) = iter.next() {
             let addr = unmark_cell_bits!(addr);

src/machine/machine_state.rs

@@ -765,6 +765,7 @@ impl MachineState {
                 let mut printer = HCPrinter::new(
                     &mut self.heap,
                     &mut self.atom_tbl,
+                    &mut self.stack,
                     op_dir,
                     PrinterOutputter::new(),
                     term_to_be_printed,

src/machine/mock_wam.rs

@@ -62,6 +62,7 @@ impl MockWAM {
         let mut printer = HCPrinter::new(
             &mut self.machine_st.heap,
             &mut self.machine_st.atom_tbl,
+            &mut self.machine_st.stack,
             &self.op_dir,
             PrinterOutputter::new(),
             heap_loc_as_cell!(term_write_result.heap_loc),