blob: ca191588a9fc11c239f40bb5ff171d7b1689dea7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- ./src/toolkit/tests+examples/tsimpleinst.sml.orig Fri Mar 30 23:40:06 2001
+++ src/toolkit/tests+examples/tsimpleinst.sml Sun Jan 13 11:03:51 2008
@@ -344,7 +344,7 @@
let
fun read_file si =
if TextIO.endOfStream si then ""
- else (TextIO.inputLine si)^(read_file si)
+ else (valOf (TextIO.inputLine si))^(read_file si)
val is = TextIO.openIn filenm
val txt = read_file is
val _ = TextIO.closeIn is
|
