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

fix some unbound variables in dist_unbound

This commit is contained in:
Vitor Santos Costa 2008-09-30 11:48:24 +01:00
parent 83c6d45cbc
commit 06a5d8f9db
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
CLPBN/clpbn/dists.yap
View File

@ -92,11 +92,11 @@ dist(p(Type, CPT, Parents), Id, FParents) :-
dist_unbound(V, ground(V)) :-
var(V), !.
dist_unbound(p(Type,CPT), ground(Type)) :-
dist_unbound(p(Type,_), ground(Type)) :-
\+ ground(Type), !.
dist_unbound(p(_,CPT), ground(CPT)) :-
\+ ground(CPT).
dist_unbound(p(Type,CPT,_), ground(Type)) :-
dist_unbound(p(Type,_,_), ground(Type)) :-
\+ ground(Type), !.
dist_unbound(p(_,CPT,_), ground(CPT)) :-
\+ ground(CPT).