From 03306955437a81f0f08d955b58655e66fbcfecd9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 11 Oct 2020 21:34:32 -0400
Subject: graphics: shader: Replace reference to deleted 'color' procedure.

---
 chickadee/graphics/shader.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/chickadee/graphics/shader.scm b/chickadee/graphics/shader.scm
index fc6f5ea..010882c 100644
--- a/chickadee/graphics/shader.scm
+++ b/chickadee/graphics/shader.scm
@@ -202,7 +202,7 @@
     (bytevector-ieee-single-native-set! bv (+ i 8) (color-b v))
     (bytevector-ieee-single-native-set! bv (+ i 12) (color-a v)))
   #:setter gl-uniform4fv
-  #:null (color 0.0 0.0 0.0 0.0))
+  #:null black)
 
 (define-shader-primitive-type mat4
   #:name 'mat4
-- 
cgit v1.2.3