summaryrefslogtreecommitdiff
path: root/module/rnrs.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-06-21 00:07:46 +0200
committerAndy Wingo <wingo@pobox.com>2010-06-21 00:07:46 +0200
commit8d10ccae79ff46f0ebea92ba36acfaebafba8d86 (patch)
treece2f66c0231bd20cc48089f62d05af7b0de2ac03 /module/rnrs.scm
parent1052739b74380978a080ee5604cb1a8d0648a4d6 (diff)
downloadguile-8d10ccae79ff46f0ebea92ba36acfaebafba8d86.tar.gz
fix rnrs duplicate bindings warnings
* module/rnrs.scm: Fix i/o duplicate bindings warnings by excluding some bindings.
Diffstat (limited to 'module/rnrs.scm')
-rw-r--r--module/rnrs.scm42
1 files changed, 41 insertions, 1 deletions
diff --git a/module/rnrs.scm b/module/rnrs.scm
index 4ba9e2a56..eb2ea85cf 100644
--- a/module/rnrs.scm
+++ b/module/rnrs.scm
@@ -236,7 +236,47 @@
(rnrs control (6))
(rnrs enums (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 io ports (6))