diff options
| author | Son Ho | 2022-03-03 18:27:17 +0100 |
|---|---|---|
| committer | Son Ho | 2022-03-03 18:27:17 +0100 |
| commit | 6001c7241e50af8d9e1cd05fa2c97372a2ac9778 (patch) | |
| tree | 2be68e2997fd04ee3ae3c8aaff541abed44f956d /src/PureMicroPasses.ml | |
| parent | 0154696ae7124f57e17c6a2eea3bf4e684ed7a8f (diff) | |
In fun_id rename the variant Local to Regular
Diffstat (limited to '')
| -rw-r--r-- | src/PureMicroPasses.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/PureMicroPasses.ml b/src/PureMicroPasses.ml index 5227b2ad..cc661883 100644 --- a/src/PureMicroPasses.ml +++ b/src/PureMicroPasses.ml @@ -776,7 +776,7 @@ let to_monadic (config : config) (def : fun_decl) : fun_decl = method! visit_call env call = match call.func with - | Regular (A.Local _, _) -> + | Regular (A.Regular _, _) -> if call.args = [] && config.add_unit_args then let args = [ mk_value_expression unit_rvalue None ] in { call with args } @@ -1015,7 +1015,7 @@ let unfold_monadic_let_bindings (config : config) (_ctx : trans_ctx) * it more idiomatic lambda calculus... *) let re_call_can_use_state = match re_call.func with - | Regular (A.Local _, _) -> true + | Regular (A.Regular _, _) -> true | Regular (A.Assumed _, _) | Unop _ | Binop _ -> false in if config.use_state_monad && re_call_can_use_state then |