From 2744989cf1364cf686273f05e162cf6fcf24238c Mon Sep 17 00:00:00 2001 From: Mark Thom Date: Sun, 6 Mar 2022 15:48:54 -0700 Subject: [PATCH] fix compare/3 (#1327) --- src/machine/dispatch.rs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/machine/dispatch.rs b/src/machine/dispatch.rs index 830eedb7..f8ee8c6b 100644 --- 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); -- 2.54.0