begin migrating tests to pure prolog, correct bug in toplevel

This commit is contained in:
Mark Thom
2019-11-16 19:15:07 -07:00
parent cee3dbc453
commit bcfd7cbf8d
7 changed files with 188 additions and 3542 deletions

View File

@@ -625,6 +625,10 @@ impl<'a, Outputter: HCValueOutputter> HCPrinter<'a, Outputter> {
iter.stack().last().cloned().and_then(|addr| {
let addr = self.machine_st.store(self.machine_st.deref(addr));
if let Some(var) = self.var_names.get(&addr) {
self.heap_locs.insert(addr.clone(), Rc::new(var.clone()));
}
match self.heap_locs.get(&addr).cloned() {
Some(var) => {
if !self.printed_vars.contains(&addr) {

View File

@@ -49,6 +49,8 @@
write(Var),
write(' = '),
write_term(Value, [quoted(true), variable_names(VarList)])
; G == [] ->
write('true')
; write_term(G, [quoted(true), variable_names(VarList)])
).