summaryrefslogtreecommitdiff
path: root/bytepusher.scm
diff options
context:
space:
mode:
Diffstat (limited to 'bytepusher.scm')
-rw-r--r--bytepusher.scm3
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))