Have `lookahead-u8' and `get-u8' actually do binary input.
authorLudovic Courtès <ludo@gnu.org>
Mon, 20 Dec 2010 23:18:20 +0000 (00:18 +0100)
committerLudovic Courtès <ludo@gnu.org>
Mon, 20 Dec 2010 23:50:22 +0000 (00:50 +0100)
commit8aa47f26096ddb65d86c98e635ed550916525f0e
tree55ef8a8339a113609ed04a56f562dd79ed6e1816
parent829ed325cf983e693f358caebbf352e79fc9f6d3
Have `lookahead-u8' and `get-u8' actually do binary input.

* libguile/r6rs-ports.c (scm_lookahead_u8): Use `scm_get_byte_or_eof'
  instead of `scm_peek_char'.
  (scm_get_u8): Likewise.

* test-suite/tests/r6rs-ports.test ("7.2.8 Binary
  Input")["lookahead-u8"]: Fix typo.
  ["lookahead-u8 non-ASCII"]: New test.
libguile/r6rs-ports.c
test-suite/tests/r6rs-ports.test