From e4d53333dffd31ae64d59200e99b588c48a4fbc1 Mon Sep 17 00:00:00 2001
From: Unworried Safari <unworriedsafari@pm.me>
Date: Sun, 25 Apr 2021 19:45:41 +0000
Subject: render: Fix indexing error in build-point-bv.

---
 sdl2/render.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sdl2/render.scm b/sdl2/render.scm
index e51e476..e12fad1 100644
--- a/sdl2/render.scm
+++ b/sdl2/render.scm
@@ -237,7 +237,7 @@ disable it."
         (() bv)
         (((x y) . rest)
          (s32vector-set! bv (* i 2) x)
-         (s32vector-set! bv (+ (* i 1) 1) y)
+         (s32vector-set! bv (+ (* i 2) 1) y)
          (loop rest (+ i 1)))))))
 
 (define (draw-lines renderer points)
-- 
cgit v1.2.3