[MLton-commit] r5565

[Vesa Karvonen]

Reset alts at iso.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/misc-util/unstable/type-info.sml

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

Modified: mltonlib/trunk/com/ssh/misc-util/unstable/type-info.sml
===================================================================
--- mltonlib/trunk/com/ssh/misc-util/unstable/type-info.sml	2007-05-18 12:38:34 UTC (rev 5564)
+++ mltonlib/trunk/com/ssh/misc-util/unstable/type-info.sml	2007-05-18 15:06:16 UTC (rev 5565)
@@ -94,7 +94,8 @@
    fun pure (IN {exn, recs, ...}) =
       IN {alts = 1, base = true, exn = exn, pure = true, recs = recs}
 
-   val iso = const
+   fun iso (IN {base, exn, pure, recs, ...}) =
+       const (IN {alts = 1, base = base, exn = exn, pure = pure, recs = recs})
 
    fun (IN {base = bl, exn = hl, recs = rl, ...}) *`
        (IN {base = br, exn = hr, recs = rr, ...}) =