basis-library/libs/basis-1997/real/real-convert.fun

   1 (* Copyright (C) 2002-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 RealConvert
   9         (structure Real: REAL) :
  10         REAL_1997 =
  11   struct
  12      open Real
  13
  14      val class = IEEEReal1997.>> o class
  15      val toDecimal = IEEEReal1997.>>> o toDecimal
  16      val fromDecimal = fromDecimal o IEEEReal1997.<<<
  17   end