minor changes to CLP(BN).

2009-10-21 00:05:23 +01:00
parent 54465b08f1
commit b2eb437625
6 changed files with 25 additions and 13 deletions
--- a/packages/CLPBN/learning/em.yap
+++ b/packages/CLPBN/learning/em.yap
@@ -227,11 +227,10 @@ run_sample([C|Cases], [P|Ps], Table) :-
 	run_sample(Cases, Ps, Table).

 call_run_all(Mod:Items) :-
-	clpbn_flag(em_solver, pcg),
+	clpbn_flag(em_solver, pcg), !,
 	backtrack_run_all(Items, Mod).
-call_run_all(Items) :-
-	clpbn_flag(em_solver, pcg),
-	run_all(Items).
+call_run_all(Mod:Items) :-
+	run_all(Mod:Items).

 backtrack_run_all([Item|_], Mod) :-
 	call(Mod:Item),