virgil/commit
FIX match case insensitive
author | Michiel Hildebrand |
---|---|
Tue Mar 26 15:27:15 2013 +0100 | |
committer | Michiel Hildebrand |
Tue Mar 26 15:27:15 2013 +0100 | |
commit | 2fcdbb59105d77b0d1e9b08fec13bc51daa00259 |
tree | 9178b202ff580676c1d4649dc80ae35c858a4477 |
parent | 99baf84e955bb5f2110fe800376a3be1ea7260d9 |
Diff style: patch stat
diff --git a/lib/drug_spell_check.pl b/lib/drug_spell_check.pl index 245c293..b0dcf64 100644 --- a/lib/drug_spell_check.pl +++ b/lib/drug_spell_check.pl @@ -46,7 +46,7 @@ spell_check([_|T], PID, Rest) :- spell_check(T, PID, Rest). assert_suggestion(H-Suggestion) :- - rdf_find_literals(H, Literals), + rdf_find_literals(case(H), Literals), forall((member(Lit, Literals), rdf(R,aers:drugname,literal(Lit))), rdf_assert(R,aers:drugname_corrected,literal(Suggestion),corrected_drugnames)).