From d82490a8e2b044e92f84ad84b16db7418820ff95 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 14 Nov 2011 07:19:30 +0900 Subject: [PATCH] Fixing bug in write-bytevector thanks to okuoku. --- lib/scheme/extras.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/scheme/extras.scm b/lib/scheme/extras.scm index d7c10843..4db9b79a 100644 --- a/lib/scheme/extras.scm +++ b/lib/scheme/extras.scm @@ -55,7 +55,7 @@ (bytevector-u8-set! vec (+ i start) (bytevector-u8-ref res i)))))))) (define (write-bytevector vec . o) - (apply write-string (utf8->string vec) o)) + (apply write-string (utf8->string vec) (bytevector-length vec) o)) (define (write-partial-bytevector vec start end . o) (apply write-string (utf8->string (bytevector-copy-partial vec start end)) o))