From 0ff15523709697a512370d806786e110f659b1ef Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sat, 1 Nov 2008 11:49:38 +0000
Subject: [PATCH] normalise_CPT actually works on joints.

---
 CLPBN/clpbn/matrix_cpt_utils.yap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/CLPBN/clpbn/matrix_cpt_utils.yap b/CLPBN/clpbn/matrix_cpt_utils.yap
index e0dee8727..aff66b221 100644
--- a/CLPBN/clpbn/matrix_cpt_utils.yap
+++ b/CLPBN/clpbn/matrix_cpt_utils.yap
@@ -160,8 +160,8 @@ expand_tabs([V1|Deps1], [S1|Sz1], [V2|Deps2], [S2|Sz2], Map1, Map2, NDeps) :-
 	
 normalise_CPT(MAT,NMAT) :-
 	matrix_to_exps(MAT),
-	matrix_agg_lines(MAT, +, Sum),
-	matrix_op_to_lines(MAT, Sum, /, NMAT).
+	matrix_sum(MAT, Sum),
+	matrix_op_to_all(MAT, /, Sum, NMAT).
 
 list_from_CPT(MAT, List) :-
 	matrix_to_list(MAT, List).