diff options
author | Andreas Rottmann <a.rottmann@gmx.at> | 2010-11-21 23:17:52 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-11-24 23:04:24 +0100 |
commit | 50851f1d182f41ff4fc3a5f2c967231575da4d94 (patch) | |
tree | 38794e0e340ffebeb5adaf92eeb274e3a61b3af8 /module/rnrs.scm | |
parent | baa5705ca726c261c9aa37d3b9af52f3949690ac (diff) | |
download | guile-50851f1d182f41ff4fc3a5f2c967231575da4d94.tar.gz |
Reorganize the R6RS I/O condition types
Move the I/O condition types from `(rnrs conditions)', where they were
not exported, to `(rnrs files)', where they are.
* module/rnrs/conditions.scm: Remove definition of I/O condition types.
* module/rnrs/files.scm: Replace references to I/O condition types
inside `(rnrs conditions)' with the actual definitions.
* module/rnrs/io/simple.scm: Don't `@@'-reference the I/O condition types, just
imported them from `(rnrs files)'.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'module/rnrs.scm')
-rw-r--r-- | module/rnrs.scm | 40 |
1 files changed, 1 insertions, 39 deletions
diff --git a/module/rnrs.scm b/module/rnrs.scm index c6f5db116..14218f0a3 100644 --- a/module/rnrs.scm +++ b/module/rnrs.scm @@ -244,45 +244,7 @@ (rnrs enums (6)) (rnrs exceptions (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 files (6)) (rnrs hashtables (6)) |