reverted to old version due to a wrong commit

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2125 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rzf 2008-03-06 07:43:30 +00:00
parent 2e289a8317
commit a35877eb05

View File

@ -830,7 +830,7 @@ ground_prob([_H:PH|T]):-
ground(PH),
ground_prob(T).
process_head_ground([H:PH],P,[H:PH1,'':PNull1]):-
process_head_ground([H:PH],P,[H:PH1,'':PNull1]):-!,
PH1 is PH,
PNull is 1.0-P-PH1,
(PNull>=0.0->