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