mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

Turn `(rnrs io ports)' into an R6RS library

Browse source 
* module/rnrs/io/ports.scm: Change into an R6RS library from a "regular"
  Guile module, so the bookkeeping for #:re-export and #:replace is done
  automatically and we gain control over the imports from `(guile)'.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Andreas Rottmann 2010-11-21 23:17:51 +01:00 • committed by Ludovic Courtès
parent 644c5165ee
commit baa5705ca7
1 changed files with 25 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

12
module/rnrs/io/ports.scm
View file

@ -26,12 +26,11 @@
;;;
;;; Code:
(define-module (rnrs io ports)
#:version (6)
#:re-export (eof-object? port? input-port? output-port?)
#:export (eof-object
(library (rnrs io ports (6))
(export eof-object eof-object?
;; input & output ports
port? input-port? output-port?
port-transcoder binary-port? transcoded-port
port-position set-port-position!
port-has-port-position? port-has-set-port-position!?
@ -53,7 +52,8 @@
make-custom-binary-output-port
;; binary output
put-u8 put-bytevector))
put-u8 put-bytevector)
(import (guile))
(load-extension (string-append "libguile-" (effective-version))
"scm_init_r6rs_ports")
@ -121,4 +121,6 @@ as a string, and a thunk to retrieve the characters associated with that port."
(values port
(lambda () (get-output-string port)))))
)
;;; ports.scm ends here