* * ports.c (scm_drain_input): new procedure.