[MLton-commit] r5553

[Matthew Fluet]

SML/NJ 110.63.1 bugfix
----------------------------------------------------------------------

U   mlton/trunk/lib/mlton/basic/list.sml

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

Modified: mlton/trunk/lib/mlton/basic/list.sml
===================================================================
--- mlton/trunk/lib/mlton/basic/list.sml	2007-05-11 06:57:53 UTC (rev 5552)
+++ mlton/trunk/lib/mlton/basic/list.sml	2007-05-15 20:25:27 UTC (rev 5553)
@@ -390,8 +390,8 @@
          in firstN (fold (s, [], insert),n)
          end
 
-      val smallest = choose (op <)
-      val largest = choose (op >)
+      val smallest = choose (op < : int * int -> bool)
+      val largest = choose (op > : int * int -> bool)
 
       fun getFirst (l, extreme, name) =
          case extreme (l, 1) of