1 files changed, 12 insertions, 12 deletions
diff --git a/chickadee/graphics/shader.scm b/chickadee/graphics/shader.scm
index 9974b38..83f0b46 100644
--- a/chickadee/graphics/shader.scm
+++ b/chickadee/graphics/shader.scm
@@ -134,7 +134,7 @@
   #:serializer
   (lambda (bv i bool)
     (bytevector-s32-native-set! bv i (if bool 1 0)))
-  #:setter set-gpu-program-uniform:signed-int
+  #:setter 'set-gpu-program-uniform:signed-int
   #:null #false)
 
 (define-shader-primitive-type int
@@ -144,7 +144,7 @@
   #:serializer
   (lambda (bv i n)
     (bytevector-s32-native-set! bv i n))
-  #:setter set-gpu-program-uniform:signed-int
+  #:setter 'set-gpu-program-uniform:signed-int
   #:null 0)
 
 (define-shader-primitive-type unsigned-int
@@ -156,7 +156,7 @@
   #:serializer
   (lambda (bv i u)
     (bytevector-u32-native-set! bv i u))
-  #:setter set-gpu-program-uniform:unsigned-int
+  #:setter 'set-gpu-program-uniform:unsigned-int
   #:null 0)
 
 (define-shader-primitive-type float
@@ -166,7 +166,7 @@
   #:serializer
   (lambda (bv i f)
     (bytevector-ieee-single-native-set! bv i f))
-  #:setter set-gpu-program-uniform:float
+  #:setter 'set-gpu-program-uniform:float
   #:null 0.0)
 
 (define-shader-primitive-type float-vec2
@@ -177,7 +177,7 @@
   (let ((unwrap-vec2 (@@ (chickadee math vector) unwrap-vec2)))
     (lambda (bv i v)
       (bytevector-copy! (unwrap-vec2 v) 0 bv i 8)))
-  #:setter set-gpu-program-uniform:vec2
+  #:setter 'set-gpu-program-uniform:vec2
   #:null (vec2 0.0 0.0))
 
 (define-shader-primitive-type float-vec3
@@ -188,7 +188,7 @@
   (let ((unwrap-vec3 (@@ (chickadee math vector) unwrap-vec3)))
     (lambda (bv i v)
       (bytevector-copy! (unwrap-vec3 v) 0 bv i 12)))
-  #:setter set-gpu-program-uniform:vec3
+  #:setter 'set-gpu-program-uniform:vec3
   #:null (vec3 0.0 0.0 0.0))
 
 (define-shader-primitive-type float-vec4
@@ -207,7 +207,7 @@
         (bytevector-copy! (unwrap-rect v) 0 bv i 16))
        ((color? v)
         (bytevector-copy! (unwrap-color v) 0 bv i 16)))))
-  #:setter set-gpu-program-uniform:vec4
+  #:setter 'set-gpu-program-uniform:vec4
   #:null (make-null-rect))
 
 (define-shader-primitive-type mat3
@@ -218,7 +218,7 @@
   (let ((matrix3-bv (@@ (chickadee math matrix) matrix3-bv)))
     (lambda (bv i m)
       (bytevector-copy! (matrix3-bv m) 0 bv i (* 3 3 4))))
-  #:setter set-gpu-program-uniform:mat3
+  #:setter 'set-gpu-program-uniform:mat3
   #:null (make-identity-matrix3))
 
 (define-shader-primitive-type mat4
@@ -230,7 +230,7 @@
     (lambda (bv i m)
       ;; 4 rows x 4 columns x 4 bytes per float = 4^3
       (bytevector-copy! (matrix4-bv m) 0 bv i (* 4 4 4))))
-  #:setter set-gpu-program-uniform:mat4
+  #:setter 'set-gpu-program-uniform:mat4
   #:null (make-identity-matrix4))
 
 (define-shader-primitive-type sampler-2d
@@ -240,7 +240,7 @@
   #:serializer
   (lambda (bv i texture-unit)
     (bytevector-s32-native-set! bv i texture-unit))
-  #:setter set-gpu-program-uniform:signed-int
+  #:setter 'set-gpu-program-uniform:signed-int
   #:null 0)
 
 (define-shader-primitive-type sampler-cube
@@ -250,7 +250,7 @@
   #:serializer
   (lambda (bv i texture-unit)
     (bytevector-s32-native-set! bv i texture-unit))
-  #:setter set-gpu-program-uniform:signed-int
+  #:setter 'set-gpu-program-uniform:signed-int
   #:null 0)
 
 
@@ -497,7 +497,7 @@
   (type attribute-type))
 
 (define null-shader
-  (%make-shader gpu-program:null (make-hash-table) (make-hash-table) #f #f))
+  (%make-shader 'gpu-program:null (make-hash-table) (make-hash-table) #f #f))
 
 (define (make-shader vertex-port fragment-port)
   "Read GLSL source from VERTEX-PORT and FRAGMENT-PORT and compile