amalgame/commit
OPTIMIZED: filter mode for structure matchers
| author | Jacco van Ossenbruggen |
|---|---|
| Tue Sep 9 15:55:48 2014 +0200 | |
| committer | Jacco van Ossenbruggen |
| Tue Sep 9 15:55:48 2014 +0200 | |
| commit | 5ca8bdc8e7a81b05a77ea6f39ca8f934669e6d1b |
| tree | ce9b96f60231bec59f76a1a7e7194c2734bb319a |
| parent | a9eb36d005e20f512dac2ab7ce6b5d3802708cc8 |
Diff style: patch stat
diff --git a/lib/ag_modules/structure_selecter.pl b/lib/ag_modules/structure_selecter.pl index 959bb2e..ce78a0c 100644 --- a/lib/ag_modules/structure_selecter.pl +++ b/lib/ag_modules/structure_selecter.pl @@ -34,8 +34,7 @@ selecter(Matcher, In, Sel, Dis, Und, Options) :- selecter_(_, _, [], _, [], [], [], _). selecter_(all, Matcher, [Head|Tail], BackgroundMatches, Sel, Dis, [], Options) :- - structure_count(Matcher, BackgroundMatches, Options, Head, Count-Match), - ( Count > 0 + ( call(Matcher, Head, BackgroundMatches, Match, Options) -> Sel = [Match|TSel], Dis = TDis ; Sel = TSel,