* ports.c (s_scm_close_all_ports_except): Use SCM_ARG1 in a