[MLton-commit] r4762

[Vesa Karvonen]

SML/NJ only provides the deprecated fromLargeWord, toLargeWord, and
toLargeWordX values.

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

U   mltonlib/trunk/com/ssh/extended-basis/unstable/detail/mk-word-ext.fun

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

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/mk-word-ext.fun
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/detail/mk-word-ext.fun	2006-10-24 15:59:43 UTC (rev 4761)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/detail/mk-word-ext.fun	2006-10-24 16:31:55 UTC (rev 4762)
@@ -10,17 +10,17 @@
 functor MkWordExt (W : WORD) = struct
    open W
    val bounds as (minWord, maxWord) = (fromInt 0, fromInt~1)
-   val fromWord = fromLarge o Word.toLarge
-   val fromWordX = fromLarge o Word.toLargeX
-   val toWord = Word.fromLarge o toLarge
-   val toWordX = Word.fromLarge o toLargeX
+   val fromWord = fromLargeWord o Word.toLargeWord
+   val fromWordX = fromLargeWord o Word.toLargeWordX
+   val toWord = Word.fromLargeWord o toLargeWord
+   val toWordX = Word.fromLargeWord o toLargeWordX
    val embString = (toString, fromString)
    val isoInt = (toInt, fromInt)
    val isoIntX = (toIntX, fromInt)
-   val isoLarge = (toLarge, fromLarge)
+   val isoLarge = (toLargeWord, fromLargeWord)
    val isoLargeInt = (toLargeInt, fromLargeInt)
    val isoLargeIntX = (toLargeIntX, fromLargeInt)
-   val isoLargeX = (toLargeX, fromLarge)
+   val isoLargeX = (toLargeWordX, fromLargeWord)
    val isoWord = (toWord, fromWord)
    val isoWordX = (toWordX, fromWordX)
    fun isZero w = fromInt 0 = w