diff options
Diffstat (limited to 'libraries/base/GHC/Float.hs')
| -rw-r--r-- | libraries/base/GHC/Float.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/GHC/Float.hs b/libraries/base/GHC/Float.hs index de6c8e3860..1e870e0c49 100644 --- a/libraries/base/GHC/Float.hs +++ b/libraries/base/GHC/Float.hs @@ -229,7 +229,7 @@ class (RealFrac a, Floating a) => RealFloat a where -- to wrong results, hence we clamp the -- scaling parameter. -- If n + k would be larger than h, - -- n + clamp b k must be too, simliar + -- n + clamp b k must be too, similar -- for smaller than l - d. -- Add a little extra to keep clear -- from the boundary cases. @@ -1258,7 +1258,7 @@ word2Float (W# w) = F# (word2Float# w) {- Note [realToFrac int-to-float] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Don found that the RULES for realToFrac/Int->Double and simliarly +Don found that the RULES for realToFrac/Int->Double and similarly Float made a huge difference to some stream-fusion programs. Here's an example |