1 (* Copyright (C
) 1999-2006 Henry Cejtin
, Matthew Fluet
, Suresh
2 * Jagannathan
, and Stephen Weeks
.
4 * MLton is released under a BSD
-style license
.
5 * See the file MLton
-LICENSE for details
.
8 structure LargeReal
= Real64
10 functor LargeReal_ChooseRealN (A
: CHOOSE_REALN_ARG
) :
11 sig val f
: LargeReal
.real A
.t
end =
12 ChooseRealN_Real64 (A
)