From 815d4dc9ccc2938859c22b5848d153c50fee0192 Mon Sep 17 00:00:00 2001
From: puech
Date: Thu, 29 Oct 2009 02:05:25 +0000
Subject: Fix bug in dnet.ml, which missed some results when filtering one term
 against many patterns.

Conflicts:

	lib/dnet.ml

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

(limited to 'pretyping')

diff --git a/pretyping/term_dnet.ml b/pretyping/term_dnet.ml
index f47485780e..35202a23af 100644
--- a/pretyping/term_dnet.ml
+++ b/pretyping/term_dnet.ml
@@ -309,11 +309,11 @@ struct
 	 let up = it_mkProd_or_LetIn up ctx in
 	 let wc,whole_c = if Opt.direction then whole_c,wc else wc,whole_c in
 	 try (id,(up,plug),Termops.filtering ctx Reduction.CUMUL wc whole_c)::acc
-	 with Termops.CannotFilter -> acc
+	 with Termops.CannotFilter -> (* msgnl(str"recon "++Termops.print_constr_env (Global.env()) wc); *) acc
       ) (TDnet.find_match dpat dn) []
 
   let fold_pattern_neutral f =
-    fold_pattern (fun m dn acc -> if m=neutral_meta then acc else f m dn acc)
+    fold_pattern (fun acc (mset,m,dn) -> if m=neutral_meta then acc else f m dn acc)
 
   let fold_pattern_nonlin f =
     let defined = ref Gmap.empty in
-- 
cgit v1.2.3