Commits

Bryan O'Sullivan committed 3caf621

incompleteBeta: add strictness that GHC couldn't see itself

  • Participants
  • Parent commits 016af22

Comments (0)

Files changed (1)

File Numeric/SpecFunctions.hs

     eps = 1e-15
     cx  = 1 - x
     -- Loop
-    loop psq ns ai term betain
+    loop !psq ns ai term betain
       | done      = betain' * exp( p * log x + (q - 1) * log cx - beta) / p
       | otherwise = loop psq' (ns - 1) (ai + 1) term' betain'
       where