diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix bad call for parameters.

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-04-12 17:17:21 +01:00
parent 28ce2da3dc
commit 8c2dd1f847
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/CLPBN/clpbn/ground_factors.yap
View File

@ -110,8 +110,9 @@ find_factors(K) :-
\+ currently_defined(K1), \+ currently_defined(K1),
find_factors(K1). find_factors(K1).
add_factor(factor(Type, _Id, Ks, _, CPT, Constraints), Ks) :- add_factor(factor(Type, _Id, Ks, _, Phi, Constraints), Ks) :-
F = f(Type, Ks, CPT), F = f(Type, Ks, CPT),
( is_list(Phi) -> CPT = Phi ; call(user:Phi, CPT) ),
run(Constraints), run(Constraints),
\+ f(Type, Ks, CPT), \+ f(Type, Ks, CPT),
assert(F). assert(F).