From b3dd470c8f2bc8f604ef818dae52aa87884e50c9 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 11 Mar 2008 08:16:51 +0000
Subject: Typo commit 10653

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

diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml
index c7af265ce8..15d33768ce 100644
--- a/pretyping/reductionops.ml
+++ b/pretyping/reductionops.ml
@@ -931,7 +931,7 @@ let meta_reducible_instance evd b =
   let metas = List.fold_left (fun l mv -> 
     match (try meta_opt_fvalue evd mv with Not_found -> None) with
     | Some (g,(_,s)) -> (mv,(g.rebus,s))::l 
-    | None -> l) [] in
+    | None -> l) [] fm in
   let rec irec u =
     let u = whd_betaiota u in
     match kind_of_term u with
-- 
cgit v1.2.3