From 2e01ea9e1ab0f9e8d90dd4e4ac598bc1691b9272 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Fri, 4 Aug 2017 15:48:07 +0200
Subject: More precise type for quoted structures.

---
 src/g_ltac2.ml4 | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/g_ltac2.ml4')

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