1 (* Copyright (C) 2002-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.
9 (structure TextIO: TEXT_IO) :
15 case TextIO.inputLine ins of
23 val inputAll = #1 o inputAll
26 case StreamIO.inputLine ins of
28 | SOME (s, ins) => (s, ins)