diff options
| author | Hugo Herbelin | 2020-09-01 17:01:07 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-11-16 17:25:16 +0100 |
| commit | 094c395ede48f39caf7a48b663abb0e61769369e (patch) | |
| tree | d589365cf629e3ddf1a1cff1771c491921e18dbd /interp/notation_ops.mli | |
| parent | 58b24bdf4393d5522df63d31b2adc9eb08c417d8 (diff) | |
Fix #9569 (notations collect the spine binding variables at printing time).
This allows to know which global references whose basename may be
unexpectedly caught need to be qualified.
Note: the alternative strategy, which is sometimes used, of renaming
the binding variables so as to avoid collisions with the basename of a
global reference is somehow less nice.
Diffstat (limited to 'interp/notation_ops.mli')
| -rw-r--r-- | interp/notation_ops.mli | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/interp/notation_ops.mli b/interp/notation_ops.mli index 3cc6f82ec8..68f25e1600 100644 --- a/interp/notation_ops.mli +++ b/interp/notation_ops.mli @@ -63,10 +63,11 @@ exception No_match val print_parentheses : bool ref -val match_notation_constr : bool -> 'a glob_constr_g -> interpretation -> - ('a glob_constr_g * extended_subscopes) list * ('a glob_constr_g list * extended_subscopes) list * - ('a cases_pattern_disjunction_g * extended_subscopes) list * - ('a extended_glob_local_binder_g list * extended_subscopes) list +val match_notation_constr : bool -> 'a glob_constr_g -> Id.Set.t -> interpretation -> + ((Id.Set.t * 'a glob_constr_g) * extended_subscopes) list * + ((Id.Set.t * 'a glob_constr_g list) * extended_subscopes) list * + ((Id.Set.t * 'a cases_pattern_disjunction_g) * extended_subscopes) list * + ((Id.Set.t * 'a extended_glob_local_binder_g list) * extended_subscopes) list val match_notation_constr_cases_pattern : 'a cases_pattern_g -> interpretation -> |