fix bug of bytevector-append

2014-05-29 00:31:40 +09:00
parent d71666624b
commit 49e2148d38
1 changed files with 1 additions and 1 deletions
@@ -798,7 +798,7 @@
      (bytevector-copy! res 0 v)
      (bytevector-copy! res (bytevector-length v) w)
      res))
-  (fold bytevector-append-2-inv #() vs))
+  (fold bytevector-append-2-inv #u8() vs))

 (define (bytevector->list v start end)
    (do ((i start (+ i 1))