diff options
author | Andy Wingo <wingo@pobox.com> | 2016-06-21 11:07:34 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-06-21 11:07:34 +0200 |
commit | 59f062ec78bca8ac08284771cc09fdb272888f07 (patch) | |
tree | 127b3a4aa3a1aa8f55ca108a5c402df78c0499d7 /module/rnrs | |
parent | 5d9516637b68ddce3c5246a9a883e73cdcbc9097 (diff) | |
download | guile-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.scm | 8 |
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'. |