[MLton-commit] r6426

[Matthew Fluet]

Reorder signature
----------------------------------------------------------------------

U   mlton/trunk/basis-library/system/pre-os.sml

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

Modified: mlton/trunk/basis-library/system/pre-os.sml
===================================================================
--- mlton/trunk/basis-library/system/pre-os.sml	2008-03-02 20:50:54 UTC (rev 6425)
+++ mlton/trunk/basis-library/system/pre-os.sml	2008-03-02 22:26:27 UTC (rev 6426)
@@ -9,14 +9,14 @@
    struct
       structure Process :> 
          sig
-            type status
             structure Status :
                sig
-                  type t = status
+                  type t
                   val equals: t * t -> bool
                   val fromC: C_Status.t -> t
                   val toC: t -> C_Status.t
                end
+            type status = Status.t
          end =
          struct
             structure Status =