From: Mark Thom <markjordanthom@gmail.com>
Date: Wed, 1 Jun 2022 06:02:11 +0000 (-0600)
Subject: unmark cells in arith_eval_by_metacall (#1497)
X-Git-Tag: v0.9.1~14
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=c36d4a9c9a8f2b1082aa67c7eeee9dd0e1fe5401;p=scryer-prolog.git

unmark cells in arith_eval_by_metacall (#1497)
---

diff --git a/src/machine/arithmetic_ops.rs b/src/machine/arithmetic_ops.rs
index 2f1504b7..d77283f1 100644
--- 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 {