blob: 77732cdfd0e1af63131955342123b0c426ea6913 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- ./src/toolkit/tests+examples/simpleinst.sml.orig Fri Mar 30 23:40:03 2001
+++ src/toolkit/tests+examples/simpleinst.sml Sun Jan 13 11:03:51 2008
@@ -346,7 +346,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
|
