diff options
| author | Hugo Herbelin | 2019-11-19 21:01:41 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2019-11-19 21:03:25 +0100 |
| commit | 3a3d361e1fa3ce9a074789405f46ed4c1fc67b2f (patch) | |
| tree | 3d811a363d71632d2100601217e0cfadd2bcb5c6 /parsing | |
| parent | 4e367eabea7387b5f90c947d75c626336d52d91c (diff) | |
G_constr: Renaming record_fields_instance -> fields_def.
This is in accordance with PR #10614 and to avoid a confusion with the
fields of a record type in g_vernac.ml.
Removing a useless line at the same time in G_vernac.
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_constr.mlg | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/parsing/g_constr.mlg b/parsing/g_constr.mlg index 3202cd3222..1cd36d2135 100644 --- a/parsing/g_constr.mlg +++ b/parsing/g_constr.mlg @@ -210,14 +210,14 @@ GRAMMAR EXTEND Gram { CAst.make ~loc @@ CGeneralization (Explicit, None, c) } ] ] ; record_declaration: - [ [ fs = record_fields_instance -> { CAst.make ~loc @@ CRecord fs } ] ] + [ [ fs = fields_def -> { CAst.make ~loc @@ CRecord fs } ] ] ; - record_fields_instance: - [ [ f = record_field_instance; ";"; fs = record_fields_instance -> { f :: fs } - | f = record_field_instance -> { [f] } + fields_def: + [ [ f = field_def; ";"; fs = fields_def -> { f :: fs } + | f = field_def -> { [f] } | -> { [] } ] ] ; - record_field_instance: + field_def: [ [ id = global; bl = binders; ":="; c = lconstr -> { (id, mkLambdaCN ~loc bl c) } ] ] ; |
