From 636d81ee6afba69b7a2516e8149eeef3691cd67e Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Wed, 29 Nov 2017 18:13:17 +0000
Subject: Switched to bytecode compiler for executing interpreter to avoid
 stack overflow

---
 src/lem_interp/instruction_extractor.lem | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/lem_interp')

diff --git a/src/lem_interp/instruction_extractor.lem b/src/lem_interp/instruction_extractor.lem
index 8bc19f8c..056f0100 100644
--- a/src/lem_interp/instruction_extractor.lem
+++ b/src/lem_interp/instruction_extractor.lem
@@ -127,7 +127,10 @@ let rec extract_patt_parm (P_aux p (_,tannot)) =
 let rec extract_from_execute fcls = match fcls with
   | [] -> []
   | FCL_aux (FCL_Funcl _ (P_aux (P_app (Id_aux (Id i) _) parms) _) _) (_,Just(_,_,_,Effect_aux(Effect_set efs) _,_))::fcls ->
-    (Instr_form i (List.map extract_patt_parm parms) efs)::extract_from_execute fcls
+     (Instr_form i (List.map extract_patt_parm parms) efs)::extract_from_execute fcls
+  | _ :: fcls ->
+     (* AA: Find out what breaks this *)
+     extract_from_execute fcls
 end
 
 let rec extract_effects instrs execute = 
-- 
cgit v1.2.3