let warning_once_current fmt =
  Value_parameters.warning ~current:true ~once:true fmt