support for learning CLP(BN) programs from Aleph

2008-11-13 09:03:53 +00:00
parent 1c334ea198
commit 99248795c9
8 changed files with 264 additions and 14 deletions
--- a/CLPBN/learning/learn_utils.yap
+++ b/CLPBN/learning/learn_utils.yap
@@ -34,7 +34,7 @@ run_all(M:Gs) :-

 run_all([],_).
 run_all([G|Gs],M) :-
-	call(M:G),
+	( call(M:G) -> true ; writeln(bad:M:G), break),
 	run_all(Gs,M).

 clpbn_vars(Vs,BVars) :-