--- a/src/Pure/ML-Systems/polyml_old_compiler5.ML Wed May 14 11:05:11 2008 +0200
+++ b/src/Pure/ML-Systems/polyml_old_compiler5.ML Wed May 14 11:05:45 2008 +0200
@@ -4,7 +4,7 @@
Runtime compilation -- for old PolyML.compilerEx (version 5.0, 5.1).
*)
-fun use_text (tune: string -> string) (line, name) (print, err) verbose txt =
+fun use_text (tune: string -> string) _ (line, name) (print, err) verbose txt =
let
val in_buffer = ref (explode (tune txt));
val out_buffer = ref ([]: string list);
@@ -26,7 +26,7 @@
if verbose then print (output ()) else ()
end;
-fun use_file tune output verbose name =
+fun use_file tune _ output verbose name =
let
val instream = TextIO.openIn name;
val txt = Exn.release (Exn.capture TextIO.inputAll instream before TextIO.closeIn instream);