 Wrappers around double2Int#, int2Double#, float2Int# and int2Float#,
-- we need them here, so we move them from GHC.Float and re-export them
-- explicitly from there.

double2Int :: Double -> Int
double2Int (D# x) = I# (double2Int# x)


double2Int :: Double -> Int
double2Int (D# x) = I# (double2Int# x)
double2Int (D# x) = I# (double2Int# x)