summaryrefslogtreecommitdiff
path: root/module/rnrs
diff options
context:
space:
mode:
authorAndreas Rottmann <a.rottmann@gmx.at>2011-03-13 22:39:26 +0100
committerLudovic Courtès <ludo@gnu.org>2011-03-13 22:39:26 +0100
commit74571cfd3b27b79567f27fc43815d08ec1f402cc (patch)
tree95ebe19dbc92f71cbfacbc37c231c014d098d6c9 /module/rnrs
parenta6c377f7d8a311b0ce4f9c5900b1c81c27b2d60c (diff)
downloadguile-74571cfd3b27b79567f27fc43815d08ec1f402cc.tar.gz
Export `current-*-port' from `(rnrs io ports)'
* module/rnrs/io/ports.scm: Export `current-input-port', `current-output-port' and `current-error-port' (see R6RS 8.2.7 "Input ports" and 8.2.10 "Output ports"). Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'module/rnrs')
-rw-r--r--module/rnrs/io/ports.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/module/rnrs/io/ports.scm b/module/rnrs/io/ports.scm
index d3b16ac63..662db1908 100644
--- a/module/rnrs/io/ports.scm
+++ b/module/rnrs/io/ports.scm
@@ -76,6 +76,7 @@
;; standard ports
standard-input-port standard-output-port standard-error-port
+ current-input-port current-output-port current-error-port
;; condition types
&i/o i/o-error? make-i/o-error