diff options
| author | Thomas Bauereiss | 2017-09-02 20:17:32 +0100 |
|---|---|---|
| committer | Thomas Bauereiss | 2017-09-02 20:22:41 +0100 |
| commit | de506ed9f9c290796f159f2b5279589519c2a198 (patch) | |
| tree | 6d71a3012ca3500beec9639adef0333fe4293475 /src/pretty_print_lem_ast.ml | |
| parent | 811bd830e2768a920d4be1473085905ac10a7627 (diff) | |
Various fixes for Hexapod
- Support tuples in lexps
- Rewrite trivial sizeofs
- Rewrite early returns more aggressively
- Support let bindings with ticked variables (binding both a type-level and
term-level variable at the same time)
Diffstat (limited to 'src/pretty_print_lem_ast.ml')
| -rw-r--r-- | src/pretty_print_lem_ast.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/pretty_print_lem_ast.ml b/src/pretty_print_lem_ast.ml index c75c102f..5edf9d12 100644 --- a/src/pretty_print_lem_ast.ml +++ b/src/pretty_print_lem_ast.ml @@ -328,6 +328,7 @@ let rec pp_format_pat_lem (P_aux(p,(l,annot))) = | P_lit(lit) -> "(P_lit " ^ pp_format_lit_lem lit ^ ")" | P_wild -> "P_wild" | P_id(id) -> "(P_id " ^ pp_format_id_lem id ^ ")" + | P_var(kid) -> "(P_var " ^ pp_format_var_lem kid ^ ")" | P_as(pat,id) -> "(P_as " ^ pp_format_pat_lem pat ^ " " ^ pp_format_id_lem id ^ ")" | P_typ(typ,pat) -> "(P_typ " ^ pp_format_typ_lem typ ^ " " ^ pp_format_pat_lem pat ^ ")" | P_app(id,pats) -> "(P_app " ^ pp_format_id_lem id ^ " [" ^ |