* ports.c (scm_port_for_each): Make a snapshot of the port table