diff options
| author | Son Ho | 2022-11-08 21:50:07 +0100 |
|---|---|---|
| committer | Son HO | 2022-11-10 11:35:30 +0100 |
| commit | a68926f574b23e75fe13ef3a500df7648a3c23d8 (patch) | |
| tree | 4439d56e6d049f537042020061d1cae96dd508d5 /compiler/PureUtils.ml | |
| parent | f8a394f0a11687f49bcd291e11f68244369e7f37 (diff) | |
Reorganize branching symbolic expansions to prepare for the join operation
Diffstat (limited to 'compiler/PureUtils.ml')
| -rw-r--r-- | compiler/PureUtils.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/PureUtils.ml b/compiler/PureUtils.ml index 9d364dc7..e292576c 100644 --- a/compiler/PureUtils.ml +++ b/compiler/PureUtils.ml @@ -350,6 +350,10 @@ let mk_typed_pattern_from_var (v : var) (mp : mplace option) : typed_pattern = let ty = v.ty in { value; ty } +let mk_dummy_pattern (ty : ty) : typed_pattern = + let value = PatDummy in + { value; ty } + let mk_meta (m : meta) (e : texpression) : texpression = let ty = e.ty in let e = Meta (m, e) in |