[MLton-commit] r4447

[Matthew Fluet]

SysWord <> Word
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/lib/mlton/basic/file-desc.sml

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

Modified: mlton/branches/on-20050822-x86_64-branch/lib/mlton/basic/file-desc.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/lib/mlton/basic/file-desc.sml	2006-05-04 02:41:11 UTC (rev 4446)
+++ mlton/branches/on-20050822-x86_64-branch/lib/mlton/basic/file-desc.sml	2006-05-04 03:06:38 UTC (rev 4447)
@@ -11,7 +11,8 @@
 
       type t = file_desc
 
-      val layout = Word.layout o fdToWord
+      val toString = SysWord.fmt StringCvt.DEC o fdToWord
+      val layout = Layout.str o toString
          
       fun move {from, to} =
          if from <> to