diff options
| author | David Thompson <dthompson2@worcester.edu> | 2019-10-29 17:16:03 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2019-10-29 17:16:03 -0400 |
| commit | 2db2137911639b9a772a9de7cdcdf611d5ab747f (patch) | |
| tree | d08ae66215f2541ec2b52ffe26ee60c0b4ac61aa | |
| parent | 9b1c41dcd2771b77cb680fb804e50e5e288faf05 (diff) | |
render: shader: Fix bug with arrays handling in shader-uniform-set!
| -rw-r--r-- | chickadee/render/shader.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |