implement new disjunction compilation

2023-06-17 16:28:56 -06:00
parent b205abe949
commit 0e583d620a
32 changed files with 2877 additions and 2980 deletions
--- a/src/machine/loader.rs
+++ b/src/machine/loader.rs
@@ -1428,7 +1428,7 @@ impl MachineState {
                    }
                }
                (HeapCellValueTag::Var | HeapCellValueTag::AttrVar | HeapCellValueTag::StackVar, h) => {
-                    term_stack.push(Term::Var(Cell::default(), Var::Generated(h)));
+                    term_stack.push(Term::Var(Cell::default(), VarPtr::from(format!("_{}", h))));
                }
                (HeapCellValueTag::Cons | HeapCellValueTag::CStr | HeapCellValueTag::Fixnum |
                 HeapCellValueTag::Char | HeapCellValueTag::F64) => {