[MLton-commit] r5796

Vesa Karvonen vesak at mlton.org
Thu Jul 26 22:50:57 PDT 2007


Fixed collate.
----------------------------------------------------------------------

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

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

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/data/pair.sml
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/detail/data/pair.sml	2007-07-27 01:29:38 UTC (rev 5795)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/detail/data/pair.sml	2007-07-27 05:50:56 UTC (rev 5796)
@@ -35,12 +35,12 @@
       fun mk p (fA, fB) (a, b) = let
          val a = fA a
       in
-         if p a then a else fB b
+         if p a then fB b else a
       end
    in
-      fun all     ? = mk Bool.isFalse  ?
-      fun exists  ? = mk Bool.isTrue   ?
-      fun equal   ? = mk Bool.isFalse  ? o swizzle
+      fun all     ? = mk Bool.isTrue   ?
+      fun exists  ? = mk Bool.isFalse  ?
+      fun equal   ? = mk Bool.isTrue   ? o swizzle
       fun collate ? = mk Order.isEqual ? o swizzle
    end
 

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/data/product.sml
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/detail/data/product.sml	2007-07-27 01:29:38 UTC (rev 5795)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/detail/data/product.sml	2007-07-27 05:50:56 UTC (rev 5796)
@@ -37,12 +37,12 @@
       fun mk p (fA, fB) (a & b) = let
          val a = fA a
       in
-         if p a then a else fB b
+         if p a then fB b else a
       end
    in
-      fun all     ? = mk Bool.isFalse  ?
-      fun exists  ? = mk Bool.isTrue   ?
-      fun equal   ? = mk Bool.isFalse  ? o swizzle
+      fun all     ? = mk Bool.isTrue   ?
+      fun exists  ? = mk Bool.isFalse  ?
+      fun equal   ? = mk Bool.isTrue   ? o swizzle
       fun collate ? = mk Order.isEqual ? o swizzle
    end
 




More information about the MLton-commit mailing list