diff options
-rw-r--r-- | sly/shader.scm | 6 |
1 files 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 |