From 9486c0bcaa39465ec254db72a13bd51313457ff1 Mon Sep 17 00:00:00 2001
From: Arnaud Spiwack
Date: Mon, 8 Sep 2014 09:45:52 +0200
Subject: The [constr:(…)] Ltac construction now shares the same context as
 [uconstr:(…)].

- The binders names can be influenced by binders defined in Ltac (e.g. [let x:=fresh"y" in let u:=constr:(fun x:nat=>x) in idtac u] ).
- Any untyped constr in the context can now be inserted and type-checked inside a constr. In particular, Gregory Malecha's original proposed syntax for type-checking untyped terms in Ltac is now available [let u:=uconstr:(I I) in let v := constr:(u) in idtac v].---
 tactics/tacinterp.ml | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml
index d97029ecf8..dde6c7ab2e 100644
--- a/tactics/tacinterp.ml
+++ b/tactics/tacinterp.ml
@@ -500,11 +500,11 @@ let interp_uconstr ist env = function
       { closure ; term =  intern_gen WithoutTypeConstraint ~ltacvars env ce }
 
 let interp_gen kind ist allow_patvar flags env sigma (c,ce) =
-  let constrvars = extract_ltac_constr_values ist env in
+  let constrvars = extract_ltac_uconstr_values ist env in
   let vars = {
-    Pretyping.ltac_constrs = constrvars;
-    Pretyping.ltac_uconstrs = Id.Map.empty;
-    Pretyping.ltac_idents = Id.Map.empty;
+    Pretyping.ltac_constrs = constrvars.typed;
+    Pretyping.ltac_uconstrs = constrvars.untyped;
+    Pretyping.ltac_idents = constrvars.idents;
     Pretyping.ltac_genargs = ist.lfun;
   } in
   let c = match ce with
@@ -513,8 +513,15 @@ let interp_gen kind ist allow_patvar flags env sigma (c,ce) =
        context at globalization time: we retype with the now known
        intros/lettac/inversion hypothesis names *)
   | Some c ->
+      let constr_context =
+        Id.Set.union
+          (Id.Map.domain constrvars.typed)
+       (Id.Set.union
+          (Id.Map.domain constrvars.untyped)
+          (Id.Map.domain constrvars.idents))
+      in
       let ltacvars = {
-        ltac_vars = Id.Map.domain constrvars;
+        ltac_vars = constr_context;
         ltac_bound = Id.Map.domain ist.lfun;
       } in
       intern_gen kind ~allow_patvar ~ltacvars env c
-- 
cgit v1.2.3