add CutPoint to select_switch_on_term_index (#2176)

diff --git a/src/machine/dispatch.rs b/src/machine/dispatch.rs
index a8957528f92370126af81723ea830a2cb242dc7d..6702cc4b9c073bde797a99d6d71013dbd83f95be 100644 (file)
--- 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