diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-09 16:39:07 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-27 21:55:46 +0200 |
commit | c4ce1baa9f66210ebc1909988b3dd8baa1b8ef27 (patch) | |
tree | 7e32910be8528987dcb29e4606672cdebead9732 /grammar | |
parent | 9e038688af8f7f054c1c2acdb2fe65d78cccdd81 (diff) |
Honor parsing and printing levels for tactic entry in TACTIC EXTEND and
VERNAC EXTEND.
Diffstat (limited to 'grammar')
-rw-r--r-- | grammar/q_util.ml4 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/grammar/q_util.ml4 b/grammar/q_util.ml4 index c529260e9..8a876de9b 100644 --- a/grammar/q_util.ml4 +++ b/grammar/q_util.ml4 @@ -79,7 +79,8 @@ let rec type_of_user_symbol = function ListArgType (type_of_user_symbol s) | Uopt s -> OptArgType (type_of_user_symbol s) -| Uentry e | Uentryl (e, _) -> ExtraArgType e +| Uentry e -> ExtraArgType e +| Uentryl (e, n) -> ExtraArgType (e ^ string_of_int n) let coincide s pat off = let len = String.length pat in |