force parent unification when binding two variables with same key
This commit is contained in:
parent
7d6461a527
commit
b6d5b79789
@ -413,11 +413,12 @@ fresh_attvar(Var, NVar) :-
|
|||||||
|
|
||||||
% I will now allow two CLPBN variables to be bound together.
|
% I will now allow two CLPBN variables to be bound together.
|
||||||
%bind_clpbns(Key, Dist, Parents, Key, Dist, Parents).
|
%bind_clpbns(Key, Dist, Parents, Key, Dist, Parents).
|
||||||
bind_clpbns(Key, Dist, _Parents, Key1, Dist1, _Parents1) :-
|
bind_clpbns(Key, Dist, Parents, Key1, Dist1, Parents1) :-
|
||||||
Key == Key1, !,
|
Key == Key1, !,
|
||||||
get_dist(Dist,_Type,_Domain,_Table),
|
get_dist(Dist,_Type,_Domain,_Table),
|
||||||
get_dist(Dist1,_Type1,_Domain1,_Table1),
|
get_dist(Dist1,_Type1,_Domain1,_Table1),
|
||||||
Dist = Dist1.
|
Dist = Dist1,
|
||||||
|
Parents = Parents1.
|
||||||
bind_clpbns(Key, _, _, _, Key1, _, _, _) :-
|
bind_clpbns(Key, _, _, _, Key1, _, _, _) :-
|
||||||
Key\=Key1, !, fail.
|
Key\=Key1, !, fail.
|
||||||
bind_clpbns(_, _, _, _, _, _, _, _) :-
|
bind_clpbns(_, _, _, _, _, _, _, _) :-
|
||||||
|
Reference in New Issue
Block a user