From bc154dda94c44b3ae67a3b04d3866cc473aead32 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Fri, 8 Mar 2024 13:41:57 +0100
Subject: Remove the option to split fwd/back functions and update
 SymbolicToPure

---
 compiler/Main.ml | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'compiler/Main.ml')

diff --git a/compiler/Main.ml b/compiler/Main.ml
index 4a2d01dc..664ec067 100644
--- a/compiler/Main.ml
+++ b/compiler/Main.ml
@@ -120,9 +120,6 @@ let () =
         " Generate a default lakefile.lean (Lean only)" );
       ("-print-llbc", Arg.Set print_llbc, " Print the imported LLBC");
       ("-k", Arg.Clear fail_hard, " Do not fail hard in case of error");
-      ( "-split-fwd-back",
-        Arg.Clear return_back_funs,
-        " Split the forward and backward functions." );
       ( "-tuple-nested-proj",
         Arg.Set use_nested_tuple_projectors,
         " Use nested projectors for tuples (e.g., (0, 1).snd.fst instead of \
-- 
cgit v1.2.3


From fe2a2cb34148e46e32cdcfbf100e38d9986082cd Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Fri, 8 Mar 2024 16:06:35 +0100
Subject: Make progress on propagating the changes

---
 compiler/Main.ml | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'compiler/Main.ml')

diff --git a/compiler/Main.ml b/compiler/Main.ml
index 664ec067..3f5e62ad 100644
--- a/compiler/Main.ml
+++ b/compiler/Main.ml
@@ -72,12 +72,6 @@ let () =
         Arg.Symbol (backend_names, set_backend),
         " Specify the target backend" );
       ("-dest", Arg.Set_string dest_dir, " Specify the output directory");
-      ( "-no-filter-useless-calls",
-        Arg.Clear filter_useless_monadic_calls,
-        " Do not filter the useless function calls" );
-      ( "-no-filter-useless-funs",
-        Arg.Clear filter_useless_functions,
-        " Do not filter the useless forward/backward functions" );
       ( "-test-units",
         Arg.Set test_unit_functions,
         " Test the unit functions with the concrete (i.e., not symbolic) \
-- 
cgit v1.2.3