1 (* Copyright (C
) 2003-2005 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 LargeWord
: WORD
=
10 open Pervasive
.LargeWord
12 structure Z
= FixWord (Pervasive
.LargeWord
)
15 val equals
: t
* t
-> bool = op =