MESG_to_string : (string -> string) ref
The default value of MESG_to_string is format_MESG.
- fun alt_MESG_report s = String.concat["Dear HOL user: ", s, "\n"];
- MESG_to_string := alt_MESG_report;
- HOL_MESG "Hi there."
Dear HOL user: Hi there.
> val it = () : unit