bug#69857: ports.c, "scm-set-current-output-port" vs "set-current-output-port"

[Matt Wette]

In guile-3.0.9, in ports.c I believe scheme name for setting the error 
output is
inappropriately named "scm-set-current-output-port".   It does not show 
in guile
because set-current-output-port is defined using the parameter 
current-output-port.

SCM
scm_set_current_input_port (SCM port)
#define FUNC_NAME "set-current-input-port"
{
  ...
}
#undef FUNC_NAME

SCM
scm_set_current_output_port (SCM port)
#define FUNC_NAME "scm-set-current-output-port"
{
  ...
}
#undef FUNC_NAME