diff options
| author | Hugo Herbelin | 2020-04-15 18:06:23 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-11-05 19:09:07 +0100 |
| commit | 8376231c9767d6f026ac9afc8e48c5d56cd803b8 (patch) | |
| tree | 917e9845dc6f90f35a887c3df8518e9d9dc444bd | |
| parent | c893dc56fa579c8d1f6ea3a1859681bb316d9979 (diff) | |
Accept local variables in mixed terms and binders of notations.
| -rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index c90d789105..032a752fe0 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1645,6 +1645,8 @@ let drop_notations_pattern (test_kind_top,test_kind_inner) genv env pat = in let rec drop_syndef test_kind ?loc scopes qid pats = try + if qualid_is_ident qid && Option.cata (Id.Set.mem (qualid_basename qid)) false env.pat_ids then + raise Not_found; match Nametab.locate_extended qid with | SynDef sp -> let filter (vars,a) = |