diff options
| author |  puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-29 02:05:25 +0000 |
|---|---|---|
| committer | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-29 02:05:25 +0000 |
| commit | 815d4dc9ccc2938859c22b5848d153c50fee0192 (patch) | |
| tree | d9edfc802e05e3dcfe5de2a89896c06b3c984057 /pretyping | |
| parent | 1cd1801ee86d6be178f5bce700633aee2416d236 (diff) | |
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
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/term_dnet.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/term_dnet.ml b/pretyping/term_dnet.ml index f47485780..35202a23a 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 |