From 5baf42320ba687623519da1d671ac96ad6f5d464 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Tue, 20 Sep 2011 09:55:09 +0100
Subject: [PATCH] recompute tables when commit.

---
 packages/CLPBN/learning/aleph_params.yap | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/packages/CLPBN/learning/aleph_params.yap b/packages/CLPBN/learning/aleph_params.yap
index 91f7b39cd..ea49bc0c3 100644
--- a/packages/CLPBN/learning/aleph_params.yap
+++ b/packages/CLPBN/learning/aleph_params.yap
@@ -128,9 +128,12 @@ store_cl(Cl) :-
 
 add_new_clause(_,(_ :- true),_,_) :- !.
 add_new_clause(_,(H :- B),_,_) :-
+%trace,
 %	user:db_usage,
 %	user:db_dynamic,
 	domain(H, K, V, D),
+	user:cost((H :- B), _, Cost),
+	format(user_error,'Current Cost: ~w.~n', [Cost]),
 	rewrite_body(B, IB, Vs, _, ( !, { V = K with p(D, CPTList, Vs) })),
 	% need to remember which CPT we want
 	get_dist_key(Id, K),