[MLton-commit] r4443

[Matthew Fluet]

Bug fixes
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/text/char0.sml

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

Modified: mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/text/char0.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/text/char0.sml	2006-05-03 21:43:35 UTC (rev 4442)
+++ mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/text/char0.sml	2006-05-03 21:43:42 UTC (rev 4443)
@@ -26,18 +26,7 @@
       in
          val chrUnsafe = S.f
       end
-      local
-         structure S =
-            Int_ChooseInt
-            (type 'a t = char -> 'a
-             val fInt8 = Prim.toInt8Unsafe
-             val fInt16 = Prim.toInt16Unsafe
-             val fInt32 = Prim.toInt32Unsafe
-             val fInt64 = Prim.toInt64Unsafe
-             val fIntInf = Prim.toIntInfUnsafe)
-      in
-         val ord = S.f
-      end
+      val ord = Primitive.Word8.toInt o Prim.toWord8Unsafe
 
       val minChar: char = #"\000"
       val numChars: int = 256