From dcc0d6133baf1d452b7e16e506bd88fad7e15ab7 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 5 May 2021 18:48:35 -0400
Subject: graphics: model: Fix reference to defunct load-pbr-shader procedure.

---
 chickadee/graphics/model.scm | 2 +-
 chickadee/graphics/pbr.scm   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/chickadee/graphics/model.scm b/chickadee/graphics/model.scm
index 201ef8c..92be430 100644
--- a/chickadee/graphics/model.scm
+++ b/chickadee/graphics/model.scm
@@ -914,7 +914,7 @@
                          #:alpha-cutoff alpha-cutoff
                          #:double-sided? double-sided?)))
   (define (attribute-name->index name)
-    (let ((shader (load-pbr-shader)))
+    (let ((shader (graphics-variable-ref pbr-shader)))
       (match name
         ("POSITION"
          (attribute-location
diff --git a/chickadee/graphics/pbr.scm b/chickadee/graphics/pbr.scm
index 78d1b10..5e87135 100644
--- a/chickadee/graphics/pbr.scm
+++ b/chickadee/graphics/pbr.scm
@@ -46,7 +46,7 @@
             pbr-material-alpha-cutoff
             pbr-material-double-sided?
             default-pbr-material
-            load-pbr-shader
+            pbr-shader
             shader-apply/pbr))
 
 (define-shader-type <pbr-material>
-- 
cgit v1.2.3