rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

compare '[]' in pstr_comparator of compare_term_test (#1299)

Browse Source
This commit is contained in:
Mark Thom
2022-02-25 23:57:27 -07:00
parent 26e4560429
commit d55d5f15ae
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/machine/machine_state_impl.rs
View File

@@ -1641,8 +1641,8 @@ impl MachineState {
PStrCmpResult::Ordered(ordering) => Some(ordering),
_ => {
if iter1.num_steps() == 0 && iter2.num_steps() == 0 {
return match iter2.focus.get_tag() {
HeapCellValueTag::CStr | HeapCellValueTag::PStrLoc => {
return read_heap_cell!(iter2.focus,
(HeapCellValueTag::CStr | HeapCellValueTag::PStrLoc) => {
let result = stalled_pstr_iter_handler(iter2, iter1, pdl);
if let Some(ordering) = result {
@@ -1653,10 +1653,17 @@ impl MachineState {
result
}
}
(HeapCellValueTag::Atom, (name, arity)) => {
if name == atom!("[]") && arity == 0 {
return Some(Ordering::Greater);
} else {
stalled_pstr_iter_handler(iter1, iter2, pdl)
}
}
_ => {
stalled_pstr_iter_handler(iter1, iter2, pdl)
}
};
);
}
pdl.push(iter2.focus);