From 49e2148d38c2ecdc393912566339c8f8b13fe1e4 Mon Sep 17 00:00:00 2001 From: "Sunrim KIM (keen)" <3han5chou7@gmail.com> Date: Thu, 29 May 2014 00:31:40 +0900 Subject: [PATCH] fix bug of `bytevector-append` --- piclib/built-in.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index ddb175eb..7a06bb08 100644 --- 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))