cluster_search/commit

Find literals debug messages.

authorChris Dijkshoorn
Wed Oct 15 13:57:39 2014 +0200
committerChris Dijkshoorn
Wed Oct 15 13:57:39 2014 +0200
commitc434d11b82598c4bf45d8b0465eab06485509106
treeb90d4c7d4ef340c68a685a877c2aad8546e2f8db
parent5ba49a6d000bb8e9ca06a1af762f1712d9ee05ea
Diff style: patch stat
diff --git a/lib/cluster_search/kwd_search.pl b/lib/cluster_search/kwd_search.pl
index df001fe..920dd59 100644
--- a/lib/cluster_search/kwd_search.pl
+++ b/lib/cluster_search/kwd_search.pl
@@ -311,11 +311,12 @@ same_tokens([H0|T0], [H1|T]) :-
 %		the same as Matches.  Should be cleaned.
 
 sort_matches(Set0, Search, Threshold, Set) :-
-    debug(find_literals, 'Step1D: Score literals',[]),
-    tag_match_score(Set0, Search, Threshold, Tagged),
-    debug(find_literals, 'Step1E: Sort list of literals by score',[]),
+    debug(find_literals, 'Step1D: Score literals and remove the ones below threshold',[]),
+	tag_match_score(Set0, Search, Threshold, Tagged),
+	debug(find_literals, 'Step1E: Sort list of literals by score',[]),
     keysort(Tagged, Set1),
-    reverse(Set1, Set).
+    reverse(Set1, Set),
+	debug(find_literals_detail, 'Sorted literals ~p', [Set]).
 
 
 %%	tag_match_score(+Set:list(atom), +Search, +Threshold, -Result:list(Score-Atom))