fix bug of `bytevector-append`

This commit is contained in:
Sunrim KIM (keen) 2014-05-29 00:31:40 +09:00
parent d71666624b
commit 49e2148d38
1 changed files with 1 additions and 1 deletions

View File

@ -798,7 +798,7 @@
(bytevector-copy! res 0 v) (bytevector-copy! res 0 v)
(bytevector-copy! res (bytevector-length v) w) (bytevector-copy! res (bytevector-length v) w)
res)) res))
(fold bytevector-append-2-inv #() vs)) (fold bytevector-append-2-inv #u8() vs))
(define (bytevector->list v start end) (define (bytevector->list v start end)
(do ((i start (+ i 1)) (do ((i start (+ i 1))