unmark_cell_bits! in push_literal (#2645)

2024-10-31 22:58:29 -06:00
parent c0f72704ec
commit 79be0c0625
1 changed files with 2 additions and 0 deletions
--- 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)))