fix tests

This commit is contained in:
Mark Thom
2018-10-24 23:16:49 -06:00
parent 69a7579adb
commit a4e882756e
5 changed files with 9 additions and 3 deletions

View File

@@ -132,7 +132,9 @@ impl MachineState {
output.append(" = ");
let mut printer = HCPrinter::from_heap_locs(&self, output, var_dir);
printer.numbervars = false;
printer.quoted = true;
let mut output = printer.print(addr);

View File

@@ -126,6 +126,10 @@ impl MachineState {
} else {
let mut output = {
let mut printer = HCPrinter::new(&self, PrinterOutputter::new());
printer.quoted = true;
printer.numbervars = true;
printer.print(Addr::HeapCell(h))
};

View File

@@ -1871,7 +1871,7 @@ fn test_queries_on_dcgs()
submit(&mut wam, ":- use_module(library(dcgs)).");
// test case by YeGoblynQueene on hacker news.
// test case by YeGoblynQueene from hacker news.
compile_user_module(&mut wam,
" ability(destroy, X) --> destroy(X).
destroy(X) --> [destroy], target(X).