--- a/src/Pure/ML/ml_compiler.ML Thu Aug 06 20:33:12 2015 +0200
+++ b/src/Pure/ML/ml_compiler.ML Thu Aug 06 21:31:54 2015 +0200
@@ -6,7 +6,9 @@
signature ML_COMPILER =
sig
- type flags = {SML: bool, exchange: bool, redirect: bool, verbose: bool}
+ type flags =
+ {SML: bool, exchange: bool, redirect: bool, verbose: bool,
+ writeln: string -> unit, warning: string -> unit}
val flags: flags
val verbose: bool -> flags -> flags
val eval: flags -> Position.T -> ML_Lex.token list -> unit
@@ -15,11 +17,17 @@
structure ML_Compiler: ML_COMPILER =
struct
-type flags = {SML: bool, exchange: bool, redirect: bool, verbose: bool};
-val flags = {SML = false, exchange = false, redirect = false, verbose = false};
+type flags =
+ {SML: bool, exchange: bool, redirect: bool, verbose: bool,
+ writeln: string -> unit, warning: string -> unit};
+
+val flags: flags =
+ {SML = false, exchange = false, redirect = false, verbose = false,
+ writeln = writeln, warning = warning};
fun verbose b (flags: flags) =
- {SML = #SML flags, exchange = #exchange flags, redirect = #redirect flags, verbose = b};
+ {SML = #SML flags, exchange = #exchange flags, redirect = #redirect flags, verbose = b,
+ writeln = #writeln flags, warning = #warning flags};
fun eval (flags: flags) pos toks =
let