improve prism compatibility (fix asia).

2012-12-14 08:26:56 +00:00
parent 524edecdd3
commit 84b0529060
2 changed files with 35 additions and 14 deletions
--- a/packages/prism/src/prolog/up/expl.pl
+++ b/packages/prism/src/prolog/up/expl.pl
@@ -106,7 +106,7 @@ $pp_expl_one_goal(failure) :- !,
    $pp_expl_failure.
 $pp_expl_one_goal(Goal) :-
    $pp_is_dummy_goal(Goal),!,
-    call(Goal).
+    ( call(Goal), fail ; true ).
 $pp_expl_one_goal(Goal) :-
    % FIXME: handling non-tabled probabilistic predicate is future work
    $pp_require_tabled_probabilistic_atom(Goal,$msg(0006),$pp_expl_one_goal/1),