diff options
author | Andy Wingo <wingo@pobox.com> | 2011-02-18 15:52:02 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-02-18 16:01:21 +0100 |
commit | dd0d987fbdf32387ff4b36631302918ca8ff36cb (patch) | |
tree | 5ca6a5bd578c304b28868d0e02bade560f85395f /module/rnrs | |
parent | 7e23d9d0f1efd8d62e8fbe1341d0e1ea54b2eb57 (diff) | |
download | guile-dd0d987fbdf32387ff4b36631302918ca8ff36cb.tar.gz |
add (ice-9 binary-ports)
* module/ice-9/binary-ports.scm: New module.
* module/Makefile.am: Add to makefile.
* module/rnrs/io/ports.scm: Re-export bindings from (ice-9 binary
ports). This will allow the compiler to not pull (rnrs) into its
included module set.
Diffstat (limited to 'module/rnrs')
-rw-r--r-- | module/rnrs/io/ports.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/module/rnrs/io/ports.scm b/module/rnrs/io/ports.scm index a5815c85f..d3a81b7c7 100644 --- a/module/rnrs/io/ports.scm +++ b/module/rnrs/io/ports.scm @@ -98,7 +98,8 @@ make-i/o-decoding-error &i/o-encoding-error i/o-encoding-error? make-i/o-encoding-error i/o-encoding-error-char) - (import (only (rnrs base) assertion-violation) + (import (ice-9 binary-ports) + (only (rnrs base) assertion-violation) (rnrs enums) (rnrs records syntactic) (rnrs exceptions) @@ -108,9 +109,6 @@ (ice-9 rdelim) (except (guile) raise)) -(load-extension (string-append "libguile-" (effective-version)) - "scm_init_r6rs_ports") - ;;; @@ -205,7 +203,8 @@ "Return a new textual port based on @var{port}, using @var{transcoder} to encode and decode data written to or read from its underlying binary port @var{port}." - (let ((result (%make-transcoded-port port))) + ;; Hackily get at %make-transcoded-port. + (let ((result ((@@ (ice-9 binary-ports) %make-transcoded-port) port))) (set-port-encoding! result (transcoder-codec transcoder)) (case (transcoder-error-handling-mode transcoder) ((raise) |