Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 05:06:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing bug in write-bytevector thanks to okuoku.

Browse source
This commit is contained in:
Alex Shinn 2011-11-14 07:19:30 +09:00
parent 2caa285a63
commit d82490a8e2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/scheme/extras.scm
View file

@ -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))