summaryrefslogtreecommitdiff
path: root/module/rnrs/bytevector.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/rnrs/bytevector.scm')
-rw-r--r--module/rnrs/bytevector.scm13
1 files changed, 5 insertions, 8 deletions
diff --git a/module/rnrs/bytevector.scm b/module/rnrs/bytevector.scm
index 32929c698..9b8ac450b 100644
--- a/module/rnrs/bytevector.scm
+++ b/module/rnrs/bytevector.scm
@@ -1,6 +1,6 @@
-;;;; bytevector.scm --- R6RS bytevector API
+;;;; bytevector.scm --- R6RS bytevector API -*- coding: utf-8 -*-
-;;;; Copyright (C) 2009 Free Software Foundation, Inc.
+;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -16,7 +16,7 @@
;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-;;; Author: Ludovic Courtès <ludo@gnu.org>
+;;; Author: Ludovic Courtès <ludo@gnu.org>
;;; Commentary:
;;;
@@ -71,15 +71,12 @@
utf8->string utf16->string utf32->string))
-(load-extension "libguile" "scm_init_bytevectors")
+(load-extension (string-append "libguile-" (effective-version))
+ "scm_init_bytevectors")
(define-macro (endianness sym)
(if (memq sym '(big little))
`(quote ,sym)
(error "unsupported endianness" sym)))
-;;; Local Variables:
-;;; coding: latin-1
-;;; End:
-
;;; bytevector.scm ends here