fix bad replace; protect against undef red.
This commit is contained in:
parent
9db87d1da4
commit
00245ff0fc
@ -243,7 +243,7 @@ reset_completion :-
|
||||
propagate_evidence(_,_) :-
|
||||
\+ current_predicate(user:known/3),
|
||||
!,
|
||||
throw(error(SYSTEM_ERROR_INTERNAL,'The predicate user:known/3 is not defined. If you really have empty interpretations declare the user:known/3 as dynamic and come back.')).
|
||||
throw(error(system,'The predicate user:known/3 is not defined. If you really have empty interpretations declare the user:known/3 as dynamic and come back.')).
|
||||
|
||||
|
||||
propagate_evidence(InterpretationID,Query_Type) :-
|
||||
@ -291,7 +291,7 @@ propagate_evidence(InterpretationID,Query_Type) :-
|
||||
% iterate over all evidence atoms
|
||||
forall(user:known(InterpretationID,Atom,Value),
|
||||
(
|
||||
grounder_compute_reachable_atoms(Atom,InterpretationID,Success),
|
||||
catch( rounder_compute_reachable_atoms(Atom,InterpretationID,Success), _, fail),
|
||||
(
|
||||
(Success==true; Value==false)
|
||||
->
|
||||
|
Reference in New Issue
Block a user