[MLton-commit] r6635

[Matthew Fluet]

Unused variable and _import of nextAfter{Down,Up}

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

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

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

Modified: mlton/trunk/basis-library/primitive/prim-real.sml
===================================================================
--- mlton/trunk/basis-library/primitive/prim-real.sml	2008-05-31 14:08:19 UTC (rev 6634)
+++ mlton/trunk/basis-library/primitive/prim-real.sml	2008-06-02 14:11:24 UTC (rev 6635)
@@ -60,8 +60,6 @@
       val minNormalPos: real
       val minPos: real
       val modf: real * real ref -> real
-      val nextAfterDown: real -> real
-      val nextAfterUp: real -> real
       val round: real -> real
       val signBit: real -> C_Int.t
       val strto: Primitive.NullString8.t * C_Int.t -> real
@@ -154,8 +152,6 @@
       val minNormalPos = #1 _symbol "Real32_minNormalPos": real GetSet.t; ()
       val minPos = #1 _symbol "Real32_minPos": real GetSet.t; ()
       val modf = _import "Real32_modf": real * real ref -> real;
-      val nextAfterDown = _import "Real32_nextAfterDown": real -> real;
-      val nextAfterUp = _import "Real32_nextAfterUp": real -> real;
       val round = _prim "Real32_round": real -> real;
       val signBit = _import "Real32_signBit": real -> C_Int.t;
       val strto = _import "Real32_strto": NullString8.t * C_Int.t -> real;
@@ -251,8 +247,6 @@
       val minNormalPos = #1 _symbol "Real64_minNormalPos": real GetSet.t; ()
       val minPos = #1 _symbol "Real64_minPos": real GetSet.t; ()
       val modf = _import "Real64_modf": real * real ref -> real;
-      val nextAfterDown = _import "Real64_nextAfterDown": real -> real;
-      val nextAfterUp = _import "Real64_nextAfterUp": real -> real;
       val round = _prim "Real64_round": real -> real;
       val signBit = _import "Real64_signBit": real -> C_Int.t;
       val strto = _import "Real64_strto": NullString8.t * C_Int.t -> real;