diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-27 22:13:04 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-27 22:13:04 +0200 |
| commit | c5b6321df0f83d6b29489bbddb920bdb1ebb96a8 (patch) | |
| tree | 2f941e85d5cef3eba857291ed5ccf47d1385ed28 /interp | |
| parent | 78c0afc1b292a196f33bce1e7e21ae83084f9b71 (diff) | |
Revert "A heuristic to add parentheses in the presence of rules such as"
This reverts commit dbe29599c2e9bf49368c7a92fe00259aa9cbbe15.
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/notation.ml | 2 | ||||
| -rw-r--r-- | interp/notation.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index 1a2e7074f..b8f4f3201 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -965,7 +965,7 @@ let pr_visibility prglob = function (**********************************************************************) (* Mapping notations to concrete syntax *) -type unparsing_rule = unparsing list * precedence * tolerability option +type unparsing_rule = unparsing list * precedence type extra_unparsing_rules = (string * string) list (* Concrete syntax for symbolic-extension table *) let printing_rules = diff --git a/interp/notation.mli b/interp/notation.mli index 352c20313..480979ccc 100644 --- a/interp/notation.mli +++ b/interp/notation.mli @@ -194,7 +194,7 @@ val pr_visibility: (glob_constr -> std_ppcmds) -> scope_name option -> std_ppcmd (** {6 Printing rules for notations} *) (** Declare and look for the printing rule for symbolic notations *) -type unparsing_rule = unparsing list * precedence * tolerability option +type unparsing_rule = unparsing list * precedence type extra_unparsing_rules = (string * string) list val declare_notation_printing_rule : notation -> extra:extra_unparsing_rules -> unparsing_rule -> unit |