* ports.c (scm_port_closed_p): new procedure, implements