basis-library/config/seqindex/seqindex-int64.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 structure SeqIndex = Int64
   9
  10 functor SeqIndex_ChooseIntN (A: CHOOSE_INTN_ARG) :
  11    sig val f : SeqIndex.int A.t end =
  12    ChooseIntN_Int64 (A)