src/Pure/ML-Systems/polyml-5.0.ML
changeset 24600 5877b88f262c
parent 23139 aa899bce7c3b
child 24605 98689b0e5956
     1.1 --- a/src/Pure/ML-Systems/polyml-5.0.ML	Sun Sep 16 14:52:34 2007 +0200
     1.2 +++ b/src/Pure/ML-Systems/polyml-5.0.ML	Sun Sep 16 14:55:48 2007 +0200
     1.3 @@ -11,9 +11,9 @@
     1.4  
     1.5  (* improved versions of use_text/file *)
     1.6  
     1.7 -fun use_text name (print, err) verbose txt =
     1.8 +fun use_text (tune: string -> string) name (print, err) verbose txt =
     1.9    let
    1.10 -    val in_buffer = ref (explode txt);
    1.11 +    val in_buffer = ref (explode (tune txt));
    1.12      val out_buffer = ref ([]: string list);
    1.13      fun output () = implode (rev (case ! out_buffer of "\n" :: cs => cs | cs => cs));
    1.14