From c96b746b17a37e242fc01103d22fa0b852da84c5 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 2 Aug 2017 01:59:32 +0200
Subject: Bindings use open constr quotations.

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

(limited to 'src')

diff --git a/src/g_ltac2.ml4 b/src/g_ltac2.ml4
index 13d5dba8c6..3c41828cd3 100644
--- a/src/g_ltac2.ml4
+++ b/src/g_ltac2.ml4
@@ -301,18 +301,18 @@ GEXTEND Gram
   ;
   simple_binding:
     [ [ "("; LEFTQMARK; id = Prim.ident; ":="; c = Constr.lconstr; ")" ->
-        Loc.tag ~loc:!@loc (QAnti (Loc.tag ~loc:!@loc id), Tac2quote.of_constr ~loc:!@loc c)
+        Loc.tag ~loc:!@loc (QAnti (Loc.tag ~loc:!@loc id), Tac2quote.of_open_constr ~loc:!@loc c)
       | "("; n = Prim.natural; ":="; c = Constr.lconstr; ")" ->
-        Loc.tag ~loc:!@loc (QExpr (AnonHyp n), Tac2quote.of_constr ~loc:!@loc c)
+        Loc.tag ~loc:!@loc (QExpr (AnonHyp n), Tac2quote.of_open_constr ~loc:!@loc c)
       | "("; id = Prim.ident; ":="; c = Constr.lconstr; ")" ->
-        Loc.tag ~loc:!@loc (QExpr (NamedHyp id), Tac2quote.of_constr ~loc:!@loc c)
+        Loc.tag ~loc:!@loc (QExpr (NamedHyp id), Tac2quote.of_open_constr ~loc:!@loc c)
     ] ]
   ;
   bindings:
     [ [ test_lpar_idnum_coloneq; bl = LIST1 simple_binding ->
         QExplicitBindings bl
       | bl = LIST1 Constr.constr ->
-        let bl = List.map (fun c -> Tac2quote.of_constr ~loc:!@loc c) bl in
+        let bl = List.map (fun c -> Tac2quote.of_open_constr ~loc:!@loc c) bl in
         QImplicitBindings bl
     ] ]
   ;
-- 
cgit v1.2.3