diff options
| -rw-r--r-- | bytepusher.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/bytepusher.scm b/bytepusher.scm index 54c7e28..1be1365 100644 --- a/bytepusher.scm +++ b/bytepusher.scm @@ -140,11 +140,10 @@ (len (* width height)) (base (make-bytevector len)) (final (make-bytevector (* 4 len)))) - (bytevector-copy! memory initial base 0 len) (let loop ((i 0)) (bytevector-u32-set! final (* 4 i) - (pixel->color-fast (bytevector-u8-ref base i)) + (pixel->color-fast (get-byte (+ i initial))) (endianness big)) (unless (= i (- len 1)) (loop (+ 1 i)))) final)) |