summaryrefslogtreecommitdiff
path: root/module/rnrs
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-06-21 11:07:34 +0200
committerAndy Wingo <wingo@pobox.com>2016-06-21 11:07:34 +0200
commit59f062ec78bca8ac08284771cc09fdb272888f07 (patch)
tree127b3a4aa3a1aa8f55ca108a5c402df78c0499d7 /module/rnrs
parent5d9516637b68ddce3c5246a9a883e73cdcbc9097 (diff)
downloadguile-59f062ec78bca8ac08284771cc09fdb272888f07.tar.gz
Export &i/o-decoding, &i/o-encoding from (rnrs)
* module/rnrs/io/ports.scm (&i/o-decoding, &i/o-encoding): Rename from &i/o-decoding-error and &i/o-encoding-error, to conform to R6RS. * module/rnrs.scm (rnrs): Export &i/o-decoding, &i/o-encoding, their accessors and constructors.
Diffstat (limited to 'module/rnrs')
-rw-r--r--module/rnrs/io/ports.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/module/rnrs/io/ports.scm b/module/rnrs/io/ports.scm
index 0cceb0672..8ff674894 100644
--- a/module/rnrs/io/ports.scm
+++ b/module/rnrs/io/ports.scm
@@ -101,9 +101,9 @@
make-i/o-file-does-not-exist-error
&i/o-port i/o-port-error? make-i/o-port-error
i/o-error-port
- &i/o-decoding-error i/o-decoding-error?
+ &i/o-decoding i/o-decoding-error?
make-i/o-decoding-error
- &i/o-encoding-error i/o-encoding-error?
+ &i/o-encoding i/o-encoding-error?
make-i/o-encoding-error i/o-encoding-error-char)
(import (ice-9 binary-ports)
(only (rnrs base) assertion-violation)
@@ -411,7 +411,7 @@ line buffered, or @code{block} otherwise."
(define-syntax with-i/o-encoding-error
(syntax-rules ()
- "Convert Guile throws to `encoding-error' to `&i/o-encoding-error'."
+ "Convert Guile throws to `encoding-error' to `&i/o-encoding'."
((_ body ...)
;; XXX: This is heavyweight for small functions like `put-char'.
(with-throw-handler 'encoding-error
@@ -452,7 +452,7 @@ line buffered, or @code{block} otherwise."
(define-syntax with-i/o-decoding-error
(syntax-rules ()
- "Convert Guile throws to `decoding-error' to `&i/o-decoding-error'."
+ "Convert Guile throws to `decoding-error' to `&i/o-decoding'."
((_ body ...)
;; XXX: This is heavyweight for small functions like `get-char' and
;; `lookahead-char'.