fix `peek` implementation in R6RS input ports

The peek operation must not block, otherwise the port behaves
badly for `sync`.

Based on a bug report from Brett Stahlman.