1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00

add #:version (6) to rnrs bytevectors and ports

* module/rnrs/bytevectors.scm:
* module/rnrs/io/ports.scm: Add #:version (6) to these modules.

* module/6/rnrs.scm: Add versions to the import specs for bytevectors
  and ports.
This commit is contained in:
Andy Wingo 2010-06-01 22:00:28 +02:00
parent 4255e79fda
commit c08adae460
3 changed files with 7 additions and 5 deletions

View file

@ -218,8 +218,8 @@
(rnrs arithmetic flonums (6)) (rnrs arithmetic flonums (6))
(rnrs base (6)) (rnrs base (6))
(rnrs bytevectors) (rnrs bytevectors (6))
(rnrs conditions (6)) (rnrs conditions (6))
(rnrs control (6)) (rnrs control (6))
(rnrs enums (6)) (rnrs enums (6))
@ -227,7 +227,7 @@
(rnrs files (6)) (rnrs files (6))
(rnrs hashtables (6)) (rnrs hashtables (6))
(rnrs io ports) (rnrs io ports (6))
(rnrs io simple (6)) (rnrs io simple (6))
(rnrs lists (6)) (rnrs lists (6))

View file

@ -29,6 +29,7 @@
;;; Code: ;;; Code:
(define-module (rnrs bytevectors) (define-module (rnrs bytevectors)
#:version (6)
#:export-syntax (endianness) #:export-syntax (endianness)
#:export (native-endianness bytevector? #:export (native-endianness bytevector?
make-bytevector bytevector-length bytevector=? bytevector-fill! make-bytevector bytevector-length bytevector=? bytevector-fill!

View file

@ -27,8 +27,9 @@
;;; Code: ;;; Code:
(define-module (rnrs io ports) (define-module (rnrs io ports)
:re-export (eof-object? port? input-port? output-port?) #:version (6)
:export (eof-object #:re-export (eof-object? port? input-port? output-port?)
#:export (eof-object
;; input & output ports ;; input & output ports
port-transcoder binary-port? transcoded-port port-transcoder binary-port? transcoded-port