[MLton-commit] r6851

[Vesa Karvonen]

Changed to allow constant folding also with Real32.

----------------------------------------------------------------------

U   mlton/trunk/basis-library/real/real.sml

----------------------------------------------------------------------

Modified: mlton/trunk/basis-library/real/real.sml
===================================================================
--- mlton/trunk/basis-library/real/real.sml	2008-09-14 09:59:17 UTC (rev 6850)
+++ mlton/trunk/basis-library/real/real.sml	2008-09-14 14:37:27 UTC (rev 6851)
@@ -91,9 +91,9 @@
          val fromLarge = S.f
       end
 
-      val zero = fromLarge TO_NEAREST 0.0
-      val one = fromLarge TO_NEAREST 1.0
-      val two = fromLarge TO_NEAREST 2.0
+      val zero = R.fromInt32Unsafe 0
+      val one = R.fromInt32Unsafe 1
+      val two = R.fromInt32Unsafe 2
 
       val half = one / two
       val negOne = ~ one