From 1289b016fea5a54eb247cba1cac1fd9a19ee6d32 Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Wed, 27 Apr 2016 22:13:02 +0200 Subject: Revert "Revert "Honor parsing and printing levels for tactic entry in TACTIC EXTEND and"" This reverts commit eb9216e544cb5fce4347052f42e9452a822c2f64. --- grammar/q_util.ml4 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'grammar') 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 -- cgit v1.2.3