amalgame/commit
FIXED: string/atom bug caused by cliopatria literal_text string result
author | Jacco van Ossenbruggen |
---|---|
Wed Mar 4 15:37:56 2020 +0100 | |
committer | Jacco van Ossenbruggen |
Wed Mar 4 15:37:56 2020 +0100 | |
commit | 13de7559ac70d2cf833086570830f162ace8b253 |
tree | 700fcc39f093e7d442abc8638d48b5e1426ba8f6 |
parent | 7126f2519e27c286f73541e7bbbe20bb7d56966a |
Diff style: patch stat
diff --git a/lib/ag_modules/ag_overlap.pl b/lib/ag_modules/ag_overlap.pl index a6847bc..5cf9e30 100644 --- a/lib/ag_modules/ag_overlap.pl +++ b/lib/ag_modules/ag_overlap.pl @@ -5,7 +5,7 @@ :- use_module(library(debug)). :- use_module(library(lists)). :- use_module(library(pairs)). -:- use_module(library(semweb/rdf_db)). +:- use_module(library(semweb/rdf11)). :- use_module(library(semweb/rdf_label)). :- use_module(library(amalgame/expand_graph)). :- use_module(library(amalgame/map)). @@ -47,9 +47,9 @@ overlap(MappingList, Overlaps) :- group_pairs_by_key(TransposedPairsSorted, Overlaps). my_transpose_pairs([], []). -my_transpose_pairs([(S:T)-L|Tail], [IDsAtom-Es|Result]) :- +my_transpose_pairs([(S:T)-L|Tail], [IDsString-Es|Result]) :- findall(Id, member((Id:align(S,T,_)), L), IDs), - term_to_atom(IDs, IDsAtom), + term_string(IDs, IDsString), findall(align(S,T,E), member((_I:align(S,T,E)), L), Es), my_transpose_pairs(Tail, Result). create_pairs([], []).