make clp(bn) work again.

2010-06-30 17:54:58 +02:00
parent 8f8ba6221e
commit 8690fb8ca0
4 changed files with 36 additions and 18 deletions
--- a/packages/CLPBN/clpbn.yap
+++ b/packages/CLPBN/clpbn.yap
@@ -169,7 +169,7 @@ add_evidence(V,K,_,V) :-
 clpbn_marginalise(V, Dist) :-
 	attributes:all_attvars(AVars),
 	project_attributes([V], AVars),
-	vel:get_atts(V, posterior(_,_,Dist,_)).
+	clpbn_display:get_atts(V, posterior(_,_,Dist,_)).

 %
 % called by top-level