From dfe41eb6cc83e489c427d2d4049b1bc0f3f81092 Mon Sep 17 00:00:00 2001
From: Mark Thom <markjordanthom@gmail.com>
Date: Thu, 31 Oct 2024 22:58:29 -0600
Subject: [PATCH] unmark_cell_bits! in push_literal (#2645)

---
 src/arithmetic.rs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/arithmetic.rs b/src/arithmetic.rs
index 55770f88..7335f625 100644
--- a/src/arithmetic.rs
+++ b/src/arithmetic.rs
@@ -62,6 +62,8 @@ pub(crate) struct ArithmeticEvaluator<'a> {
 }
 
 fn push_literal(interm: &mut Vec<ArithmeticTerm>, c: HeapCellValue) -> Result<(), ArithmeticError> {
+    let c = unmark_cell_bits!(c);
+
     read_heap_cell!(c,
         (HeapCellValueTag::Fixnum, n) => {
             interm.push(ArithmeticTerm::Number(Number::Fixnum(n)))
-- 
2.54.0