implement ListElisionPolicy to restore previous printer behavior

2023-09-30 16:00:15 -06:00
parent 25afc11168
commit 62c23166fa
9 changed files with 134 additions and 98 deletions
--- a/src/machine/loader.rs
+++ b/src/machine/loader.rs
@@ -1418,7 +1418,8 @@ impl MachineState {
        term_addr: HeapCellValue,
    ) -> Term {
        let mut term_stack = vec![];
-        let mut iter = stackful_post_order_iter(&mut self.heap, &mut self.stack, term_addr);
+        let mut iter = stackful_post_order_iter::<NonListElider>
+            (&mut self.heap, &mut self.stack, term_addr);

        while let Some(addr) = iter.next() {
            let addr = unmark_cell_bits!(addr);