yaz/commit

unique match per entry

diff --git a/applications/yaz_mgarden.pl b/applications/yaz_mgarden.pl
index 2bbe98c..c016950 100644
--- a/applications/yaz_mgarden.pl
+++ b/applications/yaz_mgarden.pl
@@ -95,19 +95,17 @@ tag_match(literal(Tag), Time, User, Game, Interval, Match) :-
 	downcase_atom(Stem0, Stem),
 	reconcile(Tag, 5, Hits),
   	tagentry_in_interval(Game, User, Tag, Time, Interval, E, Tag1),
-	match(Stem, Hits, Tag1, Type).
+	once(match(Stem, Hits, Tag1, Type)).
 
 match(Stem, _, Tag1, stem) :-
 	snowball(dutch, Tag1, Stem1),
-	downcase_atom(Stem1, Stem),
-	!.
+	downcase_atom(Stem1, Stem).
 match(_Stem, Hits, Tag1, Type) :-
 	Hits = [_|_],
 	reconcile(Tag1, 5, Hits1),
 	member(hit(_,C,_,_), Hits),
 	member(hit(_,C1,_,_), Hits1),
-	tag_concept_match(C, C1, Type),
-	!.
+	tag_concept_match(C, C1, Type).
 
 tag_concept_match(R, R, synonym) :- !.
 tag_concept_match(R1, R2, specific) :-