From 79be0c06254b948f02f4a47407a5bf3bac587400 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 f1256b66..8cb11743 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