fix compare/3 (#1327)

2022-03-06 15:48:54 -07:00
parent 0d04abb5c7
commit 2744989cf1
1 changed files with 3 additions and 4 deletions
--- a/src/machine/dispatch.rs
+++ b/src/machine/dispatch.rs
@@ -58,12 +58,11 @@ impl MachineState {
        let a3 = self.registers[3];

        read_heap_cell!(a1,
-            (HeapCellValueTag::Str, s) => {
-                let (name, arity) = cell_as_atom_cell!(self.heap[s])
-                    .get_name_and_arity();
+            (HeapCellValueTag::Atom, (name, arity)) => {
+                debug_assert_eq!(arity, 0);

                match name {
-                    atom!(">") | atom!("<") | atom!("=") if arity == 2 => {
+                    atom!(">") | atom!("<") | atom!("=") => {
                    }
                    _ => {
                        let err = self.domain_error(DomainErrorType::Order, a1);