syntax errors

2014-08-06 10:26:03 -05:00
parent 125e676b64
commit ef3a5754e6
8 changed files with 27 additions and 15 deletions
--- a/packages/ProbLog/problog/print_learning.yap
+++ b/packages/ProbLog/problog/print_learning.yap
@@ -242,7 +242,8 @@ format_learning(_,_,_) :-
 format_learning_rule(D,'$atom'(A)):-
 	format_learning(D,'~q',[A]).
 format_learning_rule(D,\+A):-
-	format_learning(D,'\+',[]),
+        functor( \+A, Name, _),
+	format_learning(D, Name , []),
 	format_learning_rule(D,A).

 format_learning_rule(D,'true'):-