/[svn]/types/patterns.ml
ViewVC logotype

Diff of /types/patterns.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1432 by abate, Tue Jul 10 18:49:05 2007 UTC revision 1433 by abate, Tue Jul 10 18:49:23 2007 UTC
# Line 439  Line 439 
439  let filter t p =  let filter t p =
440    let r = filter_node t p in    let r = filter_node t p in
441    memo_filter :=  MemoFilter.empty;    memo_filter :=  MemoFilter.empty;
442    IdMap.get (IdMap.map Types.Positive.solve r)    IdMap.map Types.Positive.solve r
   
443  let filter_descr t p =  let filter_descr t p =
444    let r = filter_descr t p in    let r = filter_descr t p in
445    memo_filter :=  MemoFilter.empty;    memo_filter :=  MemoFilter.empty;

Legend:
Removed from v.1432  
changed lines
  Added in v.1433

CVS Admin">CVS Admin
ViewVC Help
Powered by ViewVC 1.1.5