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.
---
 ltac/tacintern.ml |  6 ++++++
 ltac/tacinterp.ml | 24 ++++++++++++++++++++++++
 2 files changed, 30 insertions(+)

(limited to 'ltac')

diff --git a/ltac/tacintern.ml b/ltac/tacintern.ml
index 4917c3bb52..17f428bdc6 100644
--- a/ltac/tacintern.ml
+++ b/ltac/tacintern.ml
@@ -799,6 +799,12 @@ let () =
   Genintern.register_intern0 wit_ident intern_ident';
   Genintern.register_intern0 wit_var (lift intern_hyp);
   Genintern.register_intern0 wit_tactic (lift intern_tactic_or_tacarg);
+  Genintern.register_intern0 wit_tactic0 (lift intern_tactic_or_tacarg);
+  Genintern.register_intern0 wit_tactic1 (lift intern_tactic_or_tacarg);
+  Genintern.register_intern0 wit_tactic2 (lift intern_tactic_or_tacarg);
+  Genintern.register_intern0 wit_tactic3 (lift intern_tactic_or_tacarg);
+  Genintern.register_intern0 wit_tactic4 (lift intern_tactic_or_tacarg);
+  Genintern.register_intern0 wit_tactic5 (lift intern_tactic_or_tacarg);
   Genintern.register_intern0 wit_ltac (lift intern_tactic_or_tacarg);
   Genintern.register_intern0 wit_sort (fun ist s -> (ist, s));
   Genintern.register_intern0 wit_quant_hyp (lift intern_quantified_hypothesis);
diff --git a/ltac/tacinterp.ml b/ltac/tacinterp.ml
index 505dcf03ca..0c9d7ff801 100644
--- a/ltac/tacinterp.ml
+++ b/ltac/tacinterp.ml
@@ -2126,6 +2126,30 @@ let () =
   let interp ist tac = Ftactic.return (Value.of_closure ist tac) in
   Geninterp.register_interp0 wit_tactic interp
 
+let () =
+  let interp ist tac = Ftactic.return (Value.of_closure ist tac) in
+  Geninterp.register_interp0 wit_tactic0 interp
+
+let () =
+  let interp ist tac = Ftactic.return (Value.of_closure ist tac) in
+  Geninterp.register_interp0 wit_tactic1 interp
+
+let () =
+  let interp ist tac = Ftactic.return (Value.of_closure ist tac) in
+  Geninterp.register_interp0 wit_tactic2 interp
+
+let () =
+  let interp ist tac = Ftactic.return (Value.of_closure ist tac) in
+  Geninterp.register_interp0 wit_tactic3 interp
+
+let () =
+  let interp ist tac = Ftactic.return (Value.of_closure ist tac) in
+  Geninterp.register_interp0 wit_tactic4 interp
+
+let () =
+  let interp ist tac = Ftactic.return (Value.of_closure ist tac) in
+  Geninterp.register_interp0 wit_tactic5 interp
+
 let () =
   let interp ist tac = interp_tactic ist tac >>= fun () -> Ftactic.return () in
   Geninterp.register_interp0 wit_ltac interp
-- 
cgit v1.2.3