amalgame/commit

IMPROVED: do not count negative results in most methods selecter

diff --git a/lib/ag_modules/most_methods.pl b/lib/ag_modules/most_methods.pl
index 0610065..e45887a 100644
--- a/lib/ag_modules/most_methods.pl
+++ b/lib/ag_modules/most_methods.pl
@@ -79,9 +79,15 @@ most_methods(As, Selected, Discarded) :-
 group_method_count([], []).
 group_method_count([Align|As], [Count-Align|Ts]) :-
 	Align = align(_,_,Provenance),
-	findall(M, (member(P,Provenance),memberchk(M,P)), Methods),
+	findall(M, (member(P,Provenance),
+		    positive_result(M,P)), Methods),
 	length(Methods, Count),
 	group_method_count(As, Ts).
 
-
+positive_result(Method, Evidence) :-
+	memberchk(method(Method), Evidence),
+	\+ ( memberchk(score(Score), Evidence),
+	     memberchk(result(Result), Score),
+	     Result \= selected
+	   ).