From a6fa936bbd0c4367b7a4d87df786645c138327b3 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin <Hugo.Herbelin@inria.fr>
Date: Wed, 27 Apr 2016 22:13:04 +0200
Subject: Revert "Honor parsing and printing levels for tactic entry in TACTIC
 EXTEND and"

This reverts commit c4ce1baa9f66210ebc1909988b3dd8baa1b8ef27.
---
 grammar/q_util.ml4 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'grammar')

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
-- 
cgit v1.2.3