diff options
| author | Hugo Herbelin | 2020-09-26 14:13:09 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-10-19 10:19:17 +0200 |
| commit | 116e82b44946998dad06b33b3fdc2516fca42fcc (patch) | |
| tree | fada732b8a928cd8b87a57c68a53b03e74a227fc /vernac | |
| parent | 26a456cbf1e8abc5c033090b59892b314d7e7142 (diff) | |
Addressing parsing part #13078.
We don't give sense to pattern/binders in leftmost position.
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/metasyntax.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/vernac/metasyntax.ml b/vernac/metasyntax.ml index 684036bc11..20a2a3218e 100644 --- a/vernac/metasyntax.ml +++ b/vernac/metasyntax.ml @@ -1233,6 +1233,9 @@ let find_precedence custom lev etyps symbols onlyprint = | _ -> user_err Pp.(str "A notation starting with an atomic expression must be at level 0.") end + | (ETPattern _ | ETBinder _), InConstrEntry when not onlyprint -> + (* Don't know exactly if we can make sense of this case *) + user_err Pp.(str "Binders or patterns not supported in leftmost position.") | (ETPattern _ | ETBinder _ | ETConstr _), _ -> (* Give a default ? *) if Option.is_empty lev then |