diff options
| author | Hugo Herbelin | 2018-10-03 11:10:51 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-10-03 11:10:51 +0200 |
| commit | 33328635560b9cb963af0805c43f170b3898caac (patch) | |
| tree | 6df28e0a87746b597335169153830d7bddd06143 /pretyping/patternops.ml | |
| parent | bfd62ca575e376334575ccbaa162c6de711589c7 (diff) | |
| parent | a5b56ced42e3dd9cdce124e2e60333796c935f42 (diff) | |
Merge PR #8456: Revert #6651: Use r.(p) syntax to print primitive projections
Diffstat (limited to 'pretyping/patternops.ml')
| -rw-r--r-- | pretyping/patternops.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/pretyping/patternops.ml b/pretyping/patternops.ml index f7fea22c0f..3c1c470053 100644 --- a/pretyping/patternops.ml +++ b/pretyping/patternops.ml @@ -464,9 +464,6 @@ let rec pat_of_raw metas vars = DAst.with_loc_val (fun ?loc -> function one non-trivial branch. These facts are used in [Constrextern]. *) PCase (info, pred, pat_of_raw metas vars c, brs) - | GProj(p,c) -> - PProj(p, pat_of_raw metas vars c) - | GRec (GFix (ln,n), ids, decls, tl, cl) -> if Array.exists (function (Some n, GStructRec) -> false | _ -> true) ln then err ?loc (Pp.str "\"struct\" annotation is expected.") |