diff --git a/piclib/built-in.scm b/piclib/built-in.scm index 6210136f..3d2820d9 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -802,7 +802,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))