diff options
author | Andy Wingo <wingo@pobox.com> | 2010-06-21 00:07:46 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-06-21 00:07:46 +0200 |
commit | 8d10ccae79ff46f0ebea92ba36acfaebafba8d86 (patch) | |
tree | ce2f66c0231bd20cc48089f62d05af7b0de2ac03 /module/rnrs.scm | |
parent | 1052739b74380978a080ee5604cb1a8d0648a4d6 (diff) | |
download | guile-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.scm | 42 |
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)) |