From 2db2137911639b9a772a9de7cdcdf611d5ab747f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 29 Oct 2019 17:16:03 -0400 Subject: render: shader: Fix bug with arrays handling in shader-uniform-set! --- chickadee/render/shader.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/chickadee/render/shader.scm b/chickadee/render/shader.scm index 28b9b12..07e1ffd 100644 --- a/chickadee/render/shader.scm +++ b/chickadee/render/shader.scm @@ -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 -- cgit v1.2.3