basis-library/util/real-comparisons.sml

   1 (* Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  *
   4  * MLton is released under a BSD-style license.
   5  * See the file MLton-LICENSE for details.
   6  *)
   7
   8 functor RealComparisons (type t
   9                          val < : t * t -> bool
  10                          val <= : t * t -> bool) =
  11    struct
  12       fun > (a, b) = < (b, a)
  13       fun >= (a, b) = <= (b, a)
  14    end