get-bytevector-all with buffered port ignores buffered values

[Takashi Kato]

This shouldn't return EOF

(import (rnrs))

(let ((in (open-file-input-port "test.scm"
                                (file-options no-fail) (buffer-mode block))))
  (get-bytevector-n in 50)
  (print (utf8->string (get-bytevector-all in)))
  (close-port in))

[Takashi Kato]

Considering remaining buffer on buffered port for reading all data from port (Fixes #160) Checking socket if there's still remaining data when reading all data from socket port.

→ <<cset d65f5add96ca>>