diff options
-rw-r--r-- | sly/mesh.scm | 4 | ||||
-rw-r--r-- | sly/shader.scm | 1 |
2 files changed, 2 insertions, 3 deletions
diff --git a/sly/mesh.scm b/sly/mesh.scm index 3855330..483c9cd 100644 --- a/sly/mesh.scm +++ b/sly/mesh.scm @@ -188,9 +188,7 @@ (for-each (lambda (uniform) (match uniform ((name value) - ((@@ (sly shader) uniform-set!) - (mesh-shader mesh) - name value)))) + (uniform-set! (mesh-shader mesh) name value)))) uniforms) (with-vertex-array (mesh-vao mesh) (if (texture? (mesh-texture mesh)) diff --git a/sly/shader.scm b/sly/shader.scm index d8c5be5..b3e8e39 100644 --- a/sly/shader.scm +++ b/sly/shader.scm @@ -51,6 +51,7 @@ load-default-shader %uniform-setters register-uniform-setter! + uniform-set! uniforms)) (define-syntax-rule (define-logger name length-proc log-proc) |