amalgame/commit

IMPROVED: steps reporting in related matcher

authorJacco van Ossenbruggen
Mon Mar 2 15:32:10 2020 +0100
committerJacco van Ossenbruggen
Mon Mar 2 15:32:10 2020 +0100
commitd4d913879ef733387c73497b6ffa735129d8529f
tree2283523d1824b8eab9519f1981bc1a62e49ef1c5
parentbc8755516caa37e97350f936cda6e1e0237d1656
Diff style: patch stat
diff --git a/lib/ag_modules/related_match.pl b/lib/ag_modules/related_match.pl
index 7907d9d..d1e254f 100644
--- a/lib/ag_modules/related_match.pl
+++ b/lib/ag_modules/related_match.pl
@@ -3,19 +3,19 @@
 
 :- use_module(library(assoc)).
 :- use_module(library(option)).
-:- use_module(library(semweb/rdf_db)).
+:- use_module(library(semweb/rdf11)).
 :- use_module(library(skos/util)).
 
 related_match(align(S, T, Prov0), BackgroundMatches, align(S, T, [Prov|Prov0]), Options) :-
 	option(steps(MaxSteps), Options),
-	related(S, MaxSteps, AncS, R1, Steps1),
-	related(T, MaxSteps, AncT, R2, Steps2),
+	related(S, MaxSteps, AncS, RS, StepsS),
+	related(T, MaxSteps, AncT, RT, StepsT),
 	get_assoc(AncS-AncT, BackgroundMatches, _),
 	Prov = [method(related_match),
 		source(AncS),
 		target(AncT),
-		steps(Steps1/Steps2),
-		graph([R1,R2])
+		steps((StepsS,StepsT)),
+		graph([RS,RT])
 	       ].
 
 related(R, MaxSteps, Related, rdf(R, Prop, Related), Steps) :-