diff options
author | Ludovic Courtès <ludo@gnu.org> | 2014-01-15 23:07:25 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2014-01-15 23:41:49 +0100 |
commit | 6df03222128887bf9982631183ab1cf6c144fe42 (patch) | |
tree | 6047cc7ed6f14df5c83b11a8870907cc17decc39 /libguile/script.c | |
parent | 2d6a3144a122982d5b6a9365943f73891bdb87d3 (diff) | |
download | guile-6df03222128887bf9982631183ab1cf6c144fe42.tar.gz |
Custom binary input ports sanity-check the return value of 'read!'.
* libguile/r6rs-ports.c (cbip_fill_input): Throw an exception when
C_OCTETS is greater than what was requested.
* test-suite/tests/r6rs-ports.test ("7.2.7 Input Ports")["custom binary
input port 'read!' returns too much"]: New test.
Diffstat (limited to 'libguile/script.c')
0 files changed, 0 insertions, 0 deletions