More precise type for quoted structures.

1 files changed, 3 insertions, 4 deletions

diff --git a/src/g_ltac2.ml4 b/src/g_ltac2.ml4
index 8c7db71a47..bfef4fab8d 100644
--- a/src/g_ltac2.ml4
+++ b/src/g_ltac2.ml4
@@ -316,18 +316,17 @@ GEXTEND Gram
   ;
   simple_binding:
     [ [ "("; "$"; id = Prim.ident; ":="; c = Constr.lconstr; ")" ->
-        Loc.tag ~loc:!@loc (QAnti (Loc.tag ~loc:!@loc id), Tac2quote.of_open_constr ~loc:!@loc c)
+        Loc.tag ~loc:!@loc (QAnti (Loc.tag ~loc:!@loc id), c)
       | "("; n = Prim.natural; ":="; c = Constr.lconstr; ")" ->
-        Loc.tag ~loc:!@loc (QExpr (AnonHyp n), Tac2quote.of_open_constr ~loc:!@loc c)
+        Loc.tag ~loc:!@loc (QExpr (AnonHyp n), c)
       | "("; id = Prim.ident; ":="; c = Constr.lconstr; ")" ->
-        Loc.tag ~loc:!@loc (QExpr (NamedHyp id), Tac2quote.of_open_constr ~loc:!@loc c)
+        Loc.tag ~loc:!@loc (QExpr (NamedHyp id), c)
     ] ]
   ;
   bindings:
     [ [ test_lpar_idnum_coloneq; bl = LIST1 simple_binding ->
         QExplicitBindings bl
       | bl = LIST1 Constr.constr ->
-        let bl = List.map (fun c -> Tac2quote.of_open_constr ~loc:!@loc c) bl in
         QImplicitBindings bl
     ] ]
   ;