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 functor WordToBool (S
: sig
14 val fromBool
: bool -> t
20 val fromBool
: bool -> t
= fn b
=> if b
then zero
else one
21 val toBool
: t
-> bool = fn w
=> w
<> zero