From 151bd0d3db02e0c09702aa3f3f953a517fd9cb2e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 16 Aug 2014 22:13:57 -0400
Subject: Export uniform-set!

* sly/mesh.scm (draw-mesh): Use the public uniform-set!
* sly/shader.scm: Export uniform-set!
---
 sly/mesh.scm   | 4 +---
 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)
-- 
cgit v1.2.3