From bfa83d948aff5ad0ec298836bf9f0be58a62d542 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Wed, 13 Dec 2023 10:57:49 +0100
Subject: Update the interpreter to handle optional otherwise branches

---
 compiler/InterpreterStatements.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'compiler')

diff --git a/compiler/InterpreterStatements.ml b/compiler/InterpreterStatements.ml
index 66b8492a..30b7b333 100644
--- a/compiler/InterpreterStatements.ml
+++ b/compiler/InterpreterStatements.ml
@@ -1125,7 +1125,10 @@ and eval_switch (config : config) (switch : switch) : st_cm_fun =
               let dv = Option.get adt.variant_id in
               (* Find the branch, evaluate and continue *)
               match List.find_opt (fun (svl, _) -> List.mem dv svl) stgts with
-              | None -> eval_statement config otherwise cf ctx
+              | None -> (
+                  match otherwise with
+                  | None -> raise (Failure "No otherwise branch")
+                  | Some otherwise -> eval_statement config otherwise cf ctx)
               | Some (_, tgt) -> eval_statement config tgt cf ctx)
           | VSymbolic sv ->
               (* Expand the symbolic value - may lead to branching *)
-- 
cgit v1.2.3