render: shader: Fix bug with arrays handling in shader-uniform-set!
authorDavid Thompson <dthompson2@worcester.edu>
Tue, 29 Oct 2019 21:16:03 +0000 (17:16 -0400)
committerDavid Thompson <dthompson2@worcester.edu>
Tue, 29 Oct 2019 21:16:03 +0000 (17:16 -0400)
chickadee/render/shader.scm

index 28b9b12..07e1ffd 100644 (file)
@@ -797,7 +797,8 @@ shader program."
             (let loop ((i 0))
               (when (< i size)
                 (traverse (uniform-array-namespace-ref uniform i)
-                          (vector-ref value i))))
+                          (vector-ref value i))
+                (loop (+ i 1))))
             (error "vector size mismatch for uniform"
                    (uniform-array-name uniform)))))))
   ;; Walk the uniform namespace tree until we get to a leaf node or