From a97decb77b2084a3b84c5135f5bae2dbbb5ace26 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 12 Jun 2010 17:53:35 +0000
Subject: Fixed bug #2135 (second-order unification was raising cryptic
 message) - made the example work (a call to whd_meta was missing) - replaced
 the internal error messages of w_unify_to_subterm_list into  
 user-understandable messages - incidentally fixed the meaning of whd_meta
 (which now takes an evd)   and meta_name (which now does what it means and do
 not treat differently   the instantiated metas)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13122 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/reductionops.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'pretyping/reductionops.ml')

diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml
index dae6682439..bb0ce44ea4 100644
--- a/pretyping/reductionops.ml
+++ b/pretyping/reductionops.ml
@@ -635,8 +635,8 @@ let is_trans_fconv = function | CONV -> is_trans_conv | CUMUL -> is_trans_conv_l
 (*             Special-Purpose Reduction                            *)
 (********************************************************************)
 
-let whd_meta metasubst c = match kind_of_term c with
-  | Meta p -> (try List.assoc p metasubst with Not_found -> c)
+let whd_meta sigma c = match kind_of_term c with
+  | Meta p -> (try meta_value sigma p with Not_found -> c)
   | _ -> c
 
 (* Try to replace all metas. Does not replace metas in the metas' values
-- 
cgit v1.2.3