[MLton-commit] r6955

[Vesa Karvonen]

Work around SML/NJ's CM bugs.

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

U   mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/common.sml

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

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/common.sml
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/common.sml	2008-10-18 17:53:32 UTC (rev 6954)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/common.sml	2008-10-18 18:03:26 UTC (rev 6955)
@@ -171,7 +171,6 @@
 structure FixedInt : INTEGER = FixedInt
 structure Fn : FN = Fn
 structure Fold : FOLD = Fold
-structure Id : ID = Id
 structure IOSMonad : IOS_MONAD = IOSMonad
 structure Int : INTEGER = Int
 structure Iso : ISO = Iso
@@ -210,6 +209,13 @@
 structure Word8Vector : MONO_VECTOR = Word8Vector
 structure Word8VectorSlice : MONO_VECTOR_SLICE = Word8VectorSlice
 
+(*
+ * These structures are mentioned separately here, rather than in the
+ * above list sorted alphabetically, because otherwise SML/NJ (v110.68)
+ * barfs.
+ *)
+structure Id : ID = Id
+
 (** === Functors === *)
 
 functor MkBounded (C : BOUNDED_CORE) : BOUNDED = MkBounded (C)