input-port-open?

(input-port-open? port)

入力ポート port がまだ開いていれば #t を返します。入力ポートでないものはエラーです。