let
set_warning_message f = f_warning_message := f