let set_warning_message f = f_warning_message := f