else が紛れ込んでたので修正。

diff --git a/GikoBayesian.pas b/GikoBayesian.pas
index 86ae0fb..c7f5606 100644 (file)
--- a/GikoBayesian.pas
+++ b/GikoBayesian.pas
@@ -4,7 +4,7 @@ unit GikoBayesian;
 \file          GikoBayesian.pas
 \brief \83x\83C\83W\83A\83\93\83t\83B\83\8b\83^
 
-$Id: GikoBayesian.pas,v 1.15 2004/11/01 10:28:24 yoffy Exp $
+$Id: GikoBayesian.pas,v 1.16 2004/11/01 10:32:02 yoffy Exp $
 }
 
 //! \95½\89¼\96¼\82ð\8e«\8f\91\82É\8aÜ\82ß\82È\82¢
@@ -810,8 +810,7 @@ begin
        end;
        cnt := wordCount.Count;
        if cnt = 0 then
-               cnt := 1
-       else
+               cnt := 1;
        P1 := 1 - Power( P1, 1 / cnt );
        Q1 := 1 - Power( Q1, 1 / cnt );
 
@@ -903,8 +902,7 @@ begin
        end;
        cnt := wordCount.Count;
        if cnt = 0 then
-               cnt := 1
-       else
+               cnt := 1;
        P1 := Power( P1, 1 / cnt );
        Q1 := Power( Q1, 1 / cnt );