introduce CutPoint heap tag so that they can be offset by call_continuation/1

2023-06-29 12:14:06 -06:00
parent 83f352b95e
commit c36bd4dc07
7 changed files with 54 additions and 21 deletions
--- a/src/arithmetic.rs
+++ b/src/arithmetic.rs
@@ -685,7 +685,7 @@ impl TryFrom<HeapCellValue> for Number {
           (HeapCellValueTag::F64, n) => {
               Ok(Number::Float(*n))
           }
-           (HeapCellValueTag::Fixnum, n) => {
+           (HeapCellValueTag::Fixnum | HeapCellValueTag::CutPoint, n) => {
               Ok(Number::Fixnum(n))
           }
           _ => {