mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

fix rnrs duplicate bindings warnings

Browse source 
* module/rnrs.scm: Fix i/o duplicate bindings warnings by excluding some
  bindings.
This commit is contained in:
Andy Wingo 2010-06-21 00:07:46 +02:00
parent 1052739b74
commit 8d10ccae79
1 changed files with 41 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

42
module/rnrs.scm
View file

@ -236,7 +236,47 @@
(rnrs control (6)) (rnrs control (6))
(rnrs enums (6)) (rnrs enums (6))
(rnrs exceptions (6)) (rnrs exceptions (6))
(rnrs files (6))
;; These i/o conditions are exported by (io simple), (files), and
;; should be exported by (ports) but are not yet. Avoid duplicate
;; bindings warnings, then, by excluding these bindings from all but
;; (io simple).
(except (rnrs files (6))
&i/o make-i/o-error i/o-error?
&i/o-read make-i/o-read-error i/o-read-error?
&i/o-write make-i/o-write-error i/o-write-error?
&i/o-invalid-position
make-i/o-invalid-position-error
i/o-invalid-position-error?
i/o-error-position
&i/o-filename
make-i/o-filename-error
i/o-filename-error?
i/o-error-filename
&i/o-file-protection
make-i/o-file-protection-error
i/o-file-protection-error?
&i/o-file-is-read-only
make-i/o-file-is-read-only-error
i/o-file-is-read-only-error?
&i/o-file-already-exists
make-i/o-file-already-exists-error
i/o-file-already-exists-error?
&i/o-file-does-not-exist
make-i/o-file-does-not-exist-error
i/o-file-does-not-exist-error?
&i/o-port
make-i/o-port-error
i/o-port-error?
i/o-error-port)
(rnrs hashtables (6)) (rnrs hashtables (6))
(rnrs io ports (6)) (rnrs io ports (6))