mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +02:00
Code Activity

Export &i/o-decoding, &i/o-encoding from (rnrs)

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2016-06-21 11:07:34 +02:00
parent 5d9516637b
commit 59f062ec78
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/rnrs.scm
View file

@ -160,7 +160,12 @@
;; (rnrs io ports) ;; (rnrs io ports)
file-options buffer-mode buffer-mode? &i/o-decoding i/o-decoding-error?
make-i/o-decoding-error
&i/o-encoding i/o-encoding-error-char i/o-encoding-error?
make-i/o-encoding-error
file-options buffer-mode buffer-mode?
eol-style native-eol-style error-handling-mode eol-style native-eol-style error-handling-mode
make-transcoder transcoder-codec transcoder-eol-style make-transcoder transcoder-codec transcoder-eol-style
transcoder-error-handling-mode native-transcoder transcoder-error-handling-mode native-transcoder

8
module/rnrs/io/ports.scm
View file

@ -101,9 +101,9 @@
make-i/o-file-does-not-exist-error make-i/o-file-does-not-exist-error
&i/o-port i/o-port-error? make-i/o-port-error &i/o-port i/o-port-error? make-i/o-port-error
i/o-error-port i/o-error-port
&i/o-decoding-error i/o-decoding-error? &i/o-decoding i/o-decoding-error?
make-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) make-i/o-encoding-error i/o-encoding-error-char)
(import (ice-9 binary-ports) (import (ice-9 binary-ports)
(only (rnrs base) assertion-violation) (only (rnrs base) assertion-violation)
@ -411,7 +411,7 @@ line buffered, or @code{block} otherwise."
(define-syntax with-i/o-encoding-error (define-syntax with-i/o-encoding-error
(syntax-rules () (syntax-rules ()
"Convert Guile throws to `encoding-error' to `&i/o-encoding-error'." "Convert Guile throws to `encoding-error' to `&i/o-encoding'."
((_ body ...) ((_ body ...)
;; XXX: This is heavyweight for small functions like `put-char'. ;; XXX: This is heavyweight for small functions like `put-char'.
(with-throw-handler 'encoding-error (with-throw-handler 'encoding-error
@ -452,7 +452,7 @@ line buffered, or @code{block} otherwise."
(define-syntax with-i/o-decoding-error (define-syntax with-i/o-decoding-error
(syntax-rules () (syntax-rules ()
"Convert Guile throws to `decoding-error' to `&i/o-decoding-error'." "Convert Guile throws to `decoding-error' to `&i/o-decoding'."
((_ body ...) ((_ body ...)
;; XXX: This is heavyweight for small functions like `get-char' and ;; XXX: This is heavyweight for small functions like `get-char' and
;; `lookahead-char'. ;; `lookahead-char'.