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

fix compare/3 (#1327)

Browse Source
This commit is contained in:
Mark Thom
2022-03-06 15:48:54 -07:00
parent 0d04abb5c7
commit 2744989cf1
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/machine/dispatch.rs
View File

@@ -58,12 +58,11 @@ impl MachineState {
let a3 = self.registers[3]; let a3 = self.registers[3];
read_heap_cell!(a1, read_heap_cell!(a1,
(HeapCellValueTag::Str, s) => { (HeapCellValueTag::Atom, (name, arity)) => {
let (name, arity) = cell_as_atom_cell!(self.heap[s]) debug_assert_eq!(arity, 0);
.get_name_and_arity();
match name { match name {
atom!(">") | atom!("<") | atom!("=") if arity == 2 => { atom!(">") | atom!("<") | atom!("=") => {
} }
_ => { _ => {
let err = self.domain_error(DomainErrorType::Order, a1); let err = self.domain_error(DomainErrorType::Order, a1);