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