HCoop / hcoop / debian / mlton.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 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 SysWord = C_UIntmax | |
| 9 | ||
| 10 | functor SysWord_ChooseWordN (A: CHOOSE_WORDN_ARG) : | |
| 11 | sig val f : SysWord.word A.t end = | |
| 12 | C_UIntmax_ChooseWordN (A) |