From b968b2c43810a0dff14007d1517622edb43a1de7 Mon Sep 17 00:00:00 2001
From: Mark Thom <markjordanthom@gmail.com>
Date: Wed, 5 May 2021 11:16:33 -0600
Subject: [PATCH] add missing default RevJmpBy arm to thread_choice_instr_at_to
 (prompted by #922)

---
 src/machine/compile.rs | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/src/machine/compile.rs b/src/machine/compile.rs
index e88dc605..b0242aac 100644
--- a/src/machine/compile.rs
+++ b/src/machine/compile.rs
@@ -682,6 +682,9 @@ fn thread_choice_instr_at_to(
                 *o = instr_loc - target_loc;
                 return;
             }
+            &mut Line::Control(ControlInstruction::RevJmpBy(o)) => {
+                instr_loc -= o;
+            }
             &mut Line::Choice(ChoiceInstruction::DynamicElse(birth, death, ref mut fail))
                 if target_loc >= instr_loc =>
             {
@@ -733,12 +736,6 @@ fn thread_choice_instr_at_to(
                 instr_loc += *o;
             }
             _ => {
-                println!("failing code: \n");
-
-                for index in instr_loc - 40..instr_loc + 40 {
-                    println!("{:07} | {}", index, code[index]);
-                }
-
                 unreachable!()
             }
         }
-- 
2.54.0