amalgame/commit

FIXED: do not delete non-empty evaluation graphs

authorJacco van Ossenbruggen
Tue Jun 25 21:27:37 2013 +0200
committerJacco van Ossenbruggen
Tue Jun 25 21:27:37 2013 +0200
commita51ff538d83075f6b7f3733c3d69cca7eb3ca5ee
tree47db1d43cee8b0d548bd8fb767cd610a76e3f8dc
parent170ef297babefe0f2237ca294ff52cc3af82b006
Diff style: patch stat
diff --git a/lib/amalgame/ag_evaluation.pl b/lib/amalgame/ag_evaluation.pl
index db0d300..a5d15cb 100644
--- a/lib/amalgame/ag_evaluation.pl
+++ b/lib/amalgame/ag_evaluation.pl
@@ -37,7 +37,7 @@ create_evaluation_graph(Strategy, Mapping, EvalGraph) :-
 
 	rdf_assert(EvalGraph, amalgame:wasGeneratedBy, EvalProcess,           Strategy),
 	rdf_assert(EvalGraph, amalgame:evaluationOf,   Mapping,               Strategy),
-	rdf_assert(EvalGraph, amalgame:status, 	       amalgame:intermediate, Strategy),
+	rdf_assert(EvalGraph, amalgame:status,	       amalgame:intermediate, Strategy),
 
 	Options = [was_derived_from([Mapping])],
 	provenance_graph(Strategy, ProvGraph),
@@ -45,7 +45,9 @@ create_evaluation_graph(Strategy, Mapping, EvalGraph) :-
 
 
 delete_empty_eval_graphs(Strategy) :-
-	forall(rdf(EvalGraph, amalgame:evaluationOf, Mapping, Strategy),
+	forall((rdf(EvalGraph, amalgame:evaluationOf, Mapping, Strategy),
+		is_empty_eval_graph(EvalGraph)
+		),
 		delete_eval_graph_admin(Strategy, Mapping, EvalGraph)
 	      ).