src/Pure/ML-Systems/multithreading_polyml.ML
changeset 26504 6e87c0a60104
parent 26493 de4764e95166
child 28124 10a1f1f4c6ae
     1.1 --- a/src/Pure/ML-Systems/multithreading_polyml.ML	Mon Mar 31 23:08:54 2008 +0200
     1.2 +++ b/src/Pure/ML-Systems/multithreading_polyml.ML	Mon Mar 31 23:08:55 2008 +0200
     1.3 @@ -62,11 +62,11 @@
     1.4  
     1.5  fun read_file name =
     1.6    let val is = TextIO.openIn name
     1.7 -  in TextIO.inputAll is before TextIO.closeIn is end;
     1.8 +  in Exn.release (Exn.capture TextIO.inputAll is before TextIO.closeIn is) end;
     1.9  
    1.10  fun write_file name txt =
    1.11    let val os = TextIO.openOut name
    1.12 -  in TextIO.output (os, txt) before TextIO.closeOut os end;
    1.13 +  in Exn.release (Exn.capture TextIO.output (os, txt) before TextIO.closeOut os) end;
    1.14  
    1.15  
    1.16  (* thread attributes *)