From c5c6f9071aa15ba5bd35d058be04340846c4c8de Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 28 Jun 2014 16:27:32 -0400 Subject: Accept strings instead of symbols for shader uniforms and attributes. * 2d/shader.scm (uniform-location, attribute-location): Accept a string instead of a symbol. --- sly/shader.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/sly/shader.scm b/sly/shader.scm index 167cee5..489b77c 100644 --- a/sly/shader.scm +++ b/sly/shader.scm @@ -291,15 +291,13 @@ location." (memoize (lambda (shader-program name) "Retrieve the location for the uniform NAME within SHADER-PROGRAM." - (glGetUniformLocation (shader-program-id shader-program) - (symbol->string name))))) + (glGetUniformLocation (shader-program-id shader-program) name)))) (define attribute-location (memoize (lambda (shader-program name) "Retrieve the location for the uniform NAME within SHADER-PROGRAM." - (glGetAttribLocation (shader-program-id shader-program) - (symbol->string name))))) + (glGetAttribLocation (shader-program-id shader-program) name)))) (define (uniform-set! shader-program name value) "Use the appropriate setter procedure to translate VALUE into OpenGL -- cgit v1.2.3