Simplify int2Word# . integerToInt -> integerToWord
authorIan Lynagh <igloo@earth.li>
Sat, 23 Jul 2011 12:34:17 +0000 (13:34 +0100)
committerIan Lynagh <igloo@earth.li>
Sat, 23 Jul 2011 12:34:17 +0000 (13:34 +0100)
GHC/Float.lhs

index 2f6e489..5100a88 100644 (file)
@@ -356,7 +356,7 @@ instance  Real Double  where
           (# m, e# #)
             | e# >=# 0#                                         ->
                 shiftLInteger m e# :% 1
-            | (int2Word# (integerToInt m) `and#` 1##) `eqWord#` 0##   ->
+            | (integerToWord m `and#` 1##) `eqWord#` 0##   ->
                 case elimZerosInteger m (negateInt# e#) of
                     (# n, d# #) ->  n :% shiftLInteger 1 d#
             | otherwise                                         ->