let
set_error_message f = f_error_message := f