diff options
| author | Hugo Herbelin | 2020-02-23 17:09:21 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2020-02-23 18:05:32 +0100 |
| commit | 61f2f55a08dcef612c538ec7e6d0864d86fe3e0a (patch) | |
| tree | c7de9a5d4a363d266ca762c4fb9550c5f7811c2d /interp/notation_ops.mli | |
| parent | 5820b274acda8be0372471758842b0ea2b950d41 (diff) | |
Not iterating recursive notations more than once.
Diffstat (limited to 'interp/notation_ops.mli')
| -rw-r--r-- | interp/notation_ops.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/interp/notation_ops.mli b/interp/notation_ops.mli index c62dac013b..d235f87580 100644 --- a/interp/notation_ops.mli +++ b/interp/notation_ops.mli @@ -61,6 +61,8 @@ val glob_constr_of_notation_constr : ?loc:Loc.t -> notation_constr -> glob_const 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 * |