Follow toInt# -> integerToInt renaming
[packages/base.git] / GHC / Float / RealFracMethods.hs
index 7967957..765b0ca 100644 (file)
@@ -71,7 +71,7 @@ import GHC.IntWord64
 
 #else
 
-#define TO64 toInt#
+#define TO64 integerToInt
 #define FROM64 smallInteger
 #define MINUS64 ( -# )
 #define NEGATE64 negateInt#