[MLton-commit] r5847

Vesa Karvonen vesak at mlton.org
Sun Aug 12 14:19:40 PDT 2007


Broke "cyclic ML dependencies".

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

U   mltonlib/trunk/com/ssh/extended-basis/unstable/detail/data/bool.sml

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

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/data/bool.sml
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/detail/data/bool.sml	2007-08-12 21:10:51 UTC (rev 5846)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/detail/data/bool.sml	2007-08-12 21:19:39 UTC (rev 5847)
@@ -24,8 +24,9 @@
       val xorb = op <>
       val isoInt as (toInt, fromInt) =
           (fn true => 1 | false => 0, fn 0 => false | _ => true)
-      val isoLargeInt as (toLargeInt, fromLargeInt) : (t, LargeInt.t) Iso.t =
-          (fn true => 1 | false => 0, fn 0 => false | _ => true)
+      val isoLargeInt as (toLargeInt, fromLargeInt) =
+          (fn true => 1 | false => 0 : LargeInt.t,
+           fn 0 : LargeInt.t => false | _ => true)
    end
 
    structure Bounded = MkBounded (Core)




More information about the MLton-commit mailing list