Make Control.Exception buildable by nhc98.

[haskell-directory.git] / GHC / Float.lhs

diff --git a/GHC/Float.lhs b/GHC/Float.lhs
index cac8c0a..2460304 100644 (file)
--- a/GHC/Float.lhs
+++ b/GHC/Float.lhs
@@ -42,7 +42,7 @@ infixr 8  **
 -- | Trigonometric and hyperbolic functions and related functions.
 --
 -- Minimal complete definition:
---      'pi', 'exp', 'log', 'sin', 'cos', 'sinh', 'cosh'
+--      'pi', 'exp', 'log', 'sin', 'cos', 'sinh', 'cosh',
 --      'asin', 'acos', 'atan', 'asinh', 'acosh' and 'atanh'
 class  (Fractional a) => Floating a  where
     pi                 :: a
@@ -631,8 +631,10 @@ floatToDigits base x =
       (f*b*2, b^(-e+1)*2, b, 1)
     else
       (f*2, b^(-e)*2, 1, 1)
+  k :: Int
   k =
    let 
+    k0 :: Int
     k0 =
      if b == 2 && base == 10 then
         -- logBase 10 2 is slightly bigger than 3/10 so