MESG_to_stringFeedback.MESG_to_string : (string -> string) ref
Alterable function for formatting HOL_MESG.
MESG_to_string is a reference to a function for
formatting the argument to an application of HOL_MESG.
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
Feedback, Feedback.HOL_MESG, Feedback.format_MESG,
Feedback.ERR_to_string,
Feedback.WARNING_to_string