CLP(BN) stuff.

2012-06-01 13:17:39 +01:00
parent 39f392be9c
commit 71a62307f4
7 changed files with 39 additions and 29 deletions
--- a/packages/CLPBN/pfl.yap
+++ b/packages/CLPBN/pfl.yap
@@ -131,6 +131,7 @@ interface_predicate(Sk) :-
 	append(SKAs, [Var], ESKAs),
 	ESk =.. ESKAs,
 	assert(preprocess(ESk, Sk, Var)),
+	% transform from PFL to CLP(BN) call
 	assert_static((user:ESk :-
 	     evidence(Sk,Ev) -> Ev = Var;
 	     var(Var) -> insert_atts(Var,Sk) ;