Add missing R6RS `open-file-input/output-port' procedure
authorAndreas Rottmann <a.rottmann@gmx.at>
Mon, 12 Nov 2012 19:47:57 +0000 (20:47 +0100)
committerAndreas Rottmann <a.rottmann@gmx.at>
Mon, 12 Nov 2012 19:47:57 +0000 (20:47 +0100)
commit3ae5a02f1d2b85bc54a4ff921da1a904a3915b9c
tree8687f05f20ed6a61c7751672cac8c3fa0242d391
parent5ec8fc21341329e92b9b74ca386a14f1b4672cca
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'.
module/rnrs.scm
module/rnrs/io/ports.scm
test-suite/tests/r6rs-ports.test