From: Mark <markjordanthom@gmail.com>
Date: Wed, 22 Nov 2023 15:57:23 +0000 (-0700)
Subject: add CutPoint to select_switch_on_term_index (#2176)
X-Git-Tag: v0.9.4~106
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=ef8eb935d4f6e6e61e5f5ceaf73957e99867f8da;p=scryer-prolog.git

add CutPoint to select_switch_on_term_index (#2176)
---

diff --git a/src/machine/dispatch.rs b/src/machine/dispatch.rs
index a8957528..6702cc4b 100644
--- a/src/machine/dispatch.rs
+++ b/src/machine/dispatch.rs
@@ -208,6 +208,7 @@ impl MachineState {
                 l
             }
             (HeapCellValueTag::Fixnum |
+             HeapCellValueTag::CutPoint |
              HeapCellValueTag::Char |
              HeapCellValueTag::F64) => {
                 c