Merge pull request #120 from KeenS/bytevector-append

fix bug of `bytevector-append`
This commit is contained in:
Yuichi Nishiwaki 2014-05-29 01:37:38 +09:00
commit 65038c9504
1 changed files with 1 additions and 1 deletions

View File

@ -802,7 +802,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))