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