let pp_callstack fmt = if Value_parameters.PrintCallstacks.get () then Format.fprintf fmt "@ stack: %a" pretty_callbacks_call_stack !call_stack_for_callbacks