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 | a6fa936bbd0c4367b7a4d87df786645c138327b3 (patch) | |
| tree | 5191db2f8740db49fd7d9fb60878431de17b9ea7 /grammar | |
| parent | ee374eb0bbf32f192f474be25ad23bd21604d583 (diff) | |
Revert "Honor parsing and printing levels for tactic entry in TACTIC EXTEND and"
This reverts commit c4ce1baa9f66210ebc1909988b3dd8baa1b8ef27.
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/q_util.ml4 | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/grammar/q_util.ml4 b/grammar/q_util.ml4 index 8a876de9b..c529260e9 100644 --- a/grammar/q_util.ml4 +++ b/grammar/q_util.ml4 @@ -79,8 +79,7 @@ let rec type_of_user_symbol = function ListArgType (type_of_user_symbol s) | Uopt s -> OptArgType (type_of_user_symbol s) -| Uentry e -> ExtraArgType e -| Uentryl (e, n) -> ExtraArgType (e ^ string_of_int n) +| Uentry e | Uentryl (e, _) -> ExtraArgType e let coincide s pat off = let len = String.length pat in |