unmark cells in arith_eval_by_metacall (#1497)

diff --git a/src/machine/arithmetic_ops.rs b/src/machine/arithmetic_ops.rs
index 2f1504b7a8b719c5c364cc0d4036f645098cf9a1..d77283f1bf06608544e0a07694ba41cf48d19148 100644 (file)
--- a/src/machine/arithmetic_ops.rs
+++ b/src/machine/arithmetic_ops.rs
@@ -1128,6 +1128,8 @@ impl MachineState {
                 return Err(self.error_form(evaluable_error, stub_gen()));
             }
 
+            let value = unmark_cell_bits!(value);
+
             read_heap_cell!(value,
                 (HeapCellValueTag::Atom, (name, arity)) => {
                     if arity == 2 {