amalgame/commit

FIXED: broken logic when flushing caches

authorJacco van Ossenbruggen
Mon May 11 19:36:52 2015 +0200
committerJacco van Ossenbruggen
Mon May 11 19:36:52 2015 +0200
commitc98e42c60b4f3d058d3da323122bb84facf87753
tree60a6918509994636fcf2eba61ccf40c75dfdf931
parentdb6615002225a919d9a2c9856e9a7a3a679642b6
Diff style: patch stat
diff --git a/lib/amalgame/caching.pl b/lib/amalgame/caching.pl
index fce6572..eec84a2 100644
--- a/lib/amalgame/caching.pl
+++ b/lib/amalgame/caching.pl
@@ -163,15 +163,16 @@ flush_expand_cache(Strategy) :-
 	del_materialized_vocs(Strategy),
 	del_materialized_mappings(Strategy),
 	forall(amalgame_computed_node(Strategy ,Id),
-	          flush_expand_cache(Id, Strategy)
+	       (   flush_expand_cache(Id, Strategy),
+		   flush_stats_cache(Id, Strategy),
+		   flush_mapped_concepts_cache(Id, Strategy)
+	       )
 	      ).
 
 flush_expand_cache(Id, Strategy) :-
 	(   expand_cache(Id-Strategy, _) % make sure Id is bounded to something in the cache
 	->  retractall(expand_cache(Id-Strategy, _)),
-	    debug(ag_expand, 'Flushed expand mapping cache for results of process ~p', [Id]),
-	    flush_stats_cache(Id, Strategy),
-	    flush_mapped_concepts_cache(Id, Strategy)
+	    debug(ag_expand, 'Flushed expand mapping cache for results of process ~p', [Id])
 	;   true
 	).