From 77091f657e7393fc9d83a414542d2e2e2dd1e735 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 10 Mar 2008 23:17:57 +0000
Subject: Pas très propre de reposer sur la capture des anomalies (et cela
 complique le débogage...). Réécriture de 2 morceaux de code qui utilisaient
 les anomalies à des fins détournées de leur intention.

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

(limited to 'pretyping/reductionops.ml')

diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml
index 617bd77174..c7af265ce8 100644
--- a/pretyping/reductionops.ml
+++ b/pretyping/reductionops.ml
@@ -929,8 +929,9 @@ let meta_value evd mv =
 let meta_reducible_instance evd b =
   let fm = Metaset.elements b.freemetas in
   let metas = List.fold_left (fun l mv -> 
-    try let g,(_,s) = meta_fvalue evd mv in (mv,(g.rebus,s))::l 
-    with Anomaly _ | Not_found -> l) [] fm in 
+    match (try meta_opt_fvalue evd mv with Not_found -> None) with
+    | Some (g,(_,s)) -> (mv,(g.rebus,s))::l 
+    | None -> l) [] in
   let rec irec u =
     let u = whd_betaiota u in
     match kind_of_term u with
-- 
cgit v1.2.3