diff options
Diffstat (limited to 'src/ast_util.ml')
| -rw-r--r-- | src/ast_util.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/ast_util.ml b/src/ast_util.ml index ddd83429..ad14f0f1 100644 --- a/src/ast_util.ml +++ b/src/ast_util.ml @@ -50,6 +50,11 @@ let mk_nc nc_aux = NC_aux (nc_aux, Parse_ast.Unknown) let mk_nexp nexp_aux = Nexp_aux (nexp_aux, Parse_ast.Unknown) +let mk_exp exp_aux = E_aux (exp_aux, (Parse_ast.Unknown, ())) +let unaux_exp (E_aux (exp_aux, _)) = exp_aux + +let mk_lit lit_aux = L_aux (lit_aux, Parse_ast.Unknown) + let rec map_exp_annot f (E_aux (exp, annot)) = E_aux (map_exp_annot_aux f exp, f annot) and map_exp_annot_aux f = function | E_block xs -> E_block (List.map (map_exp_annot f) xs) |