[MLton-commit] r6042

[Vesa Karvonen]

Simplification.
----------------------------------------------------------------------

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-09-20 03:29:02 UTC (rev 6041)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/type-info.sml	2007-09-20 07:20:22 UTC (rev 6042)
@@ -59,7 +59,7 @@
 
       fun op --> _ = base
 
-      val exn = INT {base = true}
+      val exn = base
       fun regExn0 _ _ = ()
       fun regExn1 _ _ _ = ()