This commit is contained in:
Vitor Santos Costa 2016-08-15 14:57:32 -05:00
parent 27273290e1
commit 0f32e2cc9f

View File

@ -1119,7 +1119,7 @@ term_expansion_intern((Annotation::Head; Alternatives), Module, C):-
term_expansion_intern((Annotation :: Head :- Body), Module, problog:ExpandedClause) :- term_expansion_intern((Annotation :: Head :- Body), Module, problog:ExpandedClause) :-
( (
Annotation == ('?') -> Annotation == ('?') ->
% It's a decision with a body % It's a decision with a body
(decision_fact(_,Head) -> (decision_fact(_,Head) ->
throw(error('New decision unifies with already defined decision!', (Head))) ; true throw(error('New decision unifies with already defined decision!', (Head))) ; true
), ),
@ -2616,8 +2616,8 @@ compute_bounds(LP, UP, Status) :-
problog_low(Goal/Cond, Threshold, _, _) :- problog_low(Goal/Cond, Threshold, _, _) :-
!, !,
problog_low((Cond,Goal), Threshold, P1, Status) problog_low((Cond,Goal), Threshold, P1, Status),
problog_low( Cond, Threshold, P2, Status) problog_low( Cond, Threshold, P2, Status),
P is P1/P2. P is P1/P2.
problog_low(Goal, Threshold, _, _) :- problog_low(Goal, Threshold, _, _) :-
init_problog_low(Threshold), init_problog_low(Threshold),