diff options
author | Son Ho | 2023-01-05 23:50:41 +0100 |
---|---|---|
committer | Son HO | 2023-02-03 11:21:46 +0100 |
commit | 23ceb23847f2a5cd568278a47015f4d220f138c5 (patch) | |
tree | ef94c4562f44842fad8ceb0293a7628b9f7de201 /compiler/PureMicroPasses.ml | |
parent | efba91b5cc65d83c3f4d8a0d282eeda520abe82a (diff) |
Fix a minor issue in decompose_let_bindings
Diffstat (limited to 'compiler/PureMicroPasses.ml')
-rw-r--r-- | compiler/PureMicroPasses.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/PureMicroPasses.ml b/compiler/PureMicroPasses.ml index ae791135..aed5b02d 100644 --- a/compiler/PureMicroPasses.ml +++ b/compiler/PureMicroPasses.ml @@ -483,6 +483,7 @@ let compute_pretty_names (def : fun_decl) : fun_decl = in ctx | MPlace mp -> add_right_constraint mp e ctx + | Tag _ -> ctx in let ctx, e = update_texpression e ctx in let e = mk_meta meta e in @@ -1433,7 +1434,7 @@ let decompose_let_bindings (decompose_monadic : bool) * - if not, make the decomposition in two steps *) match lv.value with - | PatVar _ -> + | PatVar _ | PatDummy -> (* Variable: nothing to do *) (monadic, lv, re, next_e) | _ -> @@ -1444,7 +1445,7 @@ let decompose_let_bindings (decompose_monadic : bool) (* Visit the next expression *) let next_e = self#visit_texpression env next_e in (* Create the let-bindings *) - (true, ltmp, re, mk_let false lv rtmp next_e) + (monadic, ltmp, re, mk_let false lv rtmp next_e) in (* Decompose the nested let-patterns *) let lv, next_e = |