fix bug of `bytevector-append`

2014-05-29 00:31:40 +09:00 · 2014-05-29 00:31:40 +09:00 · 49e2148d38
parent d71666624b
commit 49e2148d38
1 changed files with 1 additions and 1 deletions
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@ -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))