amalgame/commit

FIXED: string/atom bug caused by cliopatria literal_text string result

authorJacco van Ossenbruggen
Wed Mar 4 15:37:56 2020 +0100
committerJacco van Ossenbruggen
Wed Mar 4 15:37:56 2020 +0100
commit13de7559ac70d2cf833086570830f162ace8b253
tree700fcc39f093e7d442abc8638d48b5e1426ba8f6
parent7126f2519e27c286f73541e7bbbe20bb7d56966a
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([], []).