[MLton-commit] r5619

[Vesa Karvonen]

Silenced a warning.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/type-info.sml

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

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/type-info.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/type-info.sml	2007-06-13 21:00:33 UTC (rev 5618)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/type-info.sml	2007-06-14 15:27:51 UTC (rev 5619)
@@ -139,7 +139,7 @@
       fun C0 _ = INS {alts = 1, base = true, exn = false, pure = true, recs = []}
       fun C1 _ (INT {base, exn, pure, recs}) =
           INS {alts = 1, base = base, exn = exn, pure = pure, recs = recs}
-      fun data (INS {alts, base, exn, pure, recs}) =
+      fun data (INS {base, exn, pure, recs, ...}) =
           INT {base = base, exn = exn, pure = pure, recs = recs})
 
    open Opened