From 0dece739c580b39d77708bb8117442e7e1cd560b Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 21 Dec 2002 11:51:33 +0000
Subject: Légère amélioration des messages d'erreur des with-bindings et des
 Rewrite

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3474 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/interface/pbp.ml   | 2 +-
 contrib/interface/xlate.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'contrib/interface')

diff --git a/contrib/interface/pbp.ml b/contrib/interface/pbp.ml
index 469a067f44..bc9f706c57 100644
--- a/contrib/interface/pbp.ml
+++ b/contrib/interface/pbp.ml
@@ -196,7 +196,7 @@ let make_pbp_atomic_tactic = function
   | PbpLApply h -> TacAtom (zz, TacLApply (make_var h))
   | PbpApply h -> TacAtom (zz, TacApply (make_var h,NoBindings))
   | PbpElim (hyp_name, names) ->
-      let bind = List.map (fun s -> (NamedHyp s,make_pbp_pattern s)) names in
+      let bind = List.map (fun s ->(zz,NamedHyp s,make_pbp_pattern s)) names in
       TacAtom
 	(zz, TacElim ((make_var hyp_name,ExplicitBindings bind),None))
   | PbpTryClear l -> 
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml
index 0d3739636e..272ca09f50 100644
--- a/contrib/interface/xlate.ml
+++ b/contrib/interface/xlate.ml
@@ -413,7 +413,7 @@ let xlate_quantified_hypothesis_opt = function
   | Some (AnonHyp n) -> xlate_int_to_id_or_int_opt n
   | Some (NamedHyp id) -> xlate_id_to_id_or_int_opt id;;
 
-let xlate_explicit_binding (h,c) = 
+let xlate_explicit_binding (loc,h,c) = 
   CT_binding (xlate_quantified_hypothesis h, xlate_formula c)
 
 let xlate_bindings = function
-- 
cgit v1.2.3