diff options
| -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 |