1 (* Copyright (C
) 1999-2006, 2008 Henry Cejtin
, Matthew Fluet
, Suresh
2 * Jagannathan
, and Stephen Weeks
.
3 * Copyright (C
) 1997-2000 NEC Research Institute
.
5 * MLton is released under a BSD
-style license
.
6 * See the file MLton
-LICENSE for details
.
11 datatype bool = datatype bool
15 fun scan reader state
=
20 #
"f" => (case Reader
.reader4 reader state
of
21 SOME((#
"a", #
"l", #
"s", #
"e"), state
) =>
24 | #
"t" => (case Reader
.reader3 reader state
of
25 SOME((#
"r", #
"u", #
"e"), state
) =>
30 val fromString
= StringCvt.scanString scan
37 structure BoolGlobal
: BOOL_GLOBAL
= Bool