WARNING_to_string : (string -> string -> string -> string) ref
The default value of WARNING_to_string is format_WARNING.
- fun alt_WARNING_report s t u =
String.concat["WARNING---", s,".",t,": ",u,"---END WARNING\n"];
- WARNING_to_string := alt_WARNING_report;
- HOL_WARNING "Foo" "bar" "Look out";
WARNING---Foo.bar: Look out---END WARNING
> val it = () : unit