diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-08-17 12:35:56 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-02-20 10:03:06 +0100 |
| commit | 3a6b1d2c04ceeb568accbc9ddfc3fc0f14faf25b (patch) | |
| tree | 52d6f018753666991104a6a63558b1ecef387bb8 /vernac/metasyntax.ml | |
| parent | 149997b59c6711c551490c4e7601eaac59f5f675 (diff) | |
Respecting the ident/pattern distinction in notation modifiers.
Diffstat (limited to 'vernac/metasyntax.ml')
| -rw-r--r-- | vernac/metasyntax.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/vernac/metasyntax.ml b/vernac/metasyntax.ml index 6ee0d6c82..e142f2ab8 100644 --- a/vernac/metasyntax.ml +++ b/vernac/metasyntax.ml @@ -962,9 +962,10 @@ let make_internalization_vars recvars mainvars typs = let make_interpretation_type isrec isonlybinding = function | ETConstr _ -> if isrec then NtnTypeConstrList else - if isonlybinding then NtnTypeBinder true (* Parsed as constr, but interpreted as binder *) + if isonlybinding then NtnTypeBinder NtnParsedAsConstr (* Parsed as constr, but interpreted as binder *) else NtnTypeConstr - | ETName | ETPattern _ -> NtnTypeBinder false (* Parsed as ident/pattern, primarily interpreted as binder *) + | ETName -> NtnTypeBinder NtnParsedAsIdent + | ETPattern _ -> NtnTypeBinder NtnParsedAsPattern (* Parsed as ident/pattern, primarily interpreted as binder *) | ETBigint | ETReference | ETOther _ -> NtnTypeConstr | ETBinder _ -> if isrec then NtnTypeBinderList |