diff options
author | Andreas Rottmann <a.rottmann@gmx.at> | 2012-11-12 20:47:57 +0100 |
---|---|---|
committer | Andreas Rottmann <a.rottmann@gmx.at> | 2012-11-12 20:47:57 +0100 |
commit | 3ae5a02f1d2b85bc54a4ff921da1a904a3915b9c (patch) | |
tree | 8687f05f20ed6a61c7751672cac8c3fa0242d391 /module/rnrs.scm | |
parent | 5ec8fc21341329e92b9b74ca386a14f1b4672cca (diff) | |
download | guile-3ae5a02f1d2b85bc54a4ff921da1a904a3915b9c.tar.gz |
Add missing R6RS `open-file-input/output-port' procedure
* module/rnrs/io/port.scm (r6rs-open): New internal helper procedure for
opening files.
(open-file-input-port, open-file-output-port): Make use of
`r6rs-open'.
(open-file-input/output-port): Implement in terms of `r6rs-open',
add to exported identifiers list.
* module/rnrs.scm (open-file-input/output-port): Add to exported
identifiers.
* test-suite/tests/r6rs-ports.test (test-input-file-opener): New
procedure, collects several tests for opening file input ports.
("7.2.7 Input Ports"): Use `test-input-file-opener' for checking
`open-file-input-port'.
(test-output-file-opener): New procedure, collects several tests for
opening file output ports.
("8.2.10 Output ports"): Use `test-output-file-opener' for checking
`open-file-output-port'.
("8.2.13 Input/output ports"): New test prefix, making use of both
`test-input-file-opener' and `test-output-file-opener' to check
`open-file-input/output-port'.
Diffstat (limited to 'module/rnrs.scm')
-rw-r--r-- | module/rnrs.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/rnrs.scm b/module/rnrs.scm index 9fff820b3..a132c5364 100644 --- a/module/rnrs.scm +++ b/module/rnrs.scm @@ -180,7 +180,7 @@ call-with-bytevector-output-port call-with-string-output-port latin-1-codec utf-8-codec utf-16-codec - open-file-input-port open-file-output-port + open-file-input-port open-file-output-port open-file-input/output-port make-custom-textual-output-port call-with-string-output-port flush-output-port put-string |