[MLton-commit] r6489

[Vesa Karvonen]

Added mirror = Sum.swap to the top-level.
----------------------------------------------------------------------

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

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

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/top-level.sml
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/top-level.sml	2008-03-16 18:40:22 UTC (rev 6488)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/top-level.sml	2008-03-16 19:01:06 UTC (rev 6489)
@@ -105,6 +105,7 @@
    (** == Sum == *)
 
    datatype sum = datatype Sum.sum
+   val mirror = Sum.swap
 
    (** == TextIO == *)