fix rnrs duplicate bindings warnings

* module/rnrs.scm: Fix i/o duplicate bindings warnings by excluding some
  bindings.

diff --git a/module/rnrs.scm b/module/rnrs.scm
index 4ba9e2a..eb2ea85 100644 (file)
--- 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))