render: shader: Remove debugging code.

1 files changed, 1 insertions, 19 deletions

diff --git a/chickadee/render/shader.scm b/chickadee/render/shader.scm
index 19f1f3c..c1e9f58 100644
--- a/chickadee/render/shader.scm
+++ b/chickadee/render/shader.scm
@@ -546,22 +546,6 @@ them into a GPU shader program."
       (and start (string->number (substring name (+ start 1) end)))))
   (define (struct? name)
     (string-contains name "."))
-  (define (namespace->alist table)
-    (hash-map->list
-     (lambda (key value)
-       (cons key
-             (cond
-              ((uniform-namespace? value)
-               (namespace->alist value))
-              ((uniform-array? value)
-               (hash-map->list (lambda (key value)
-                                 (cons key (namespace->alist value)))
-                               (uniform-array-namespaces value)))
-              (else
-               (list (uniform-location value)
-                     (shader-data-type-name (uniform-type value))
-                     (uniform-size value))))))
-     (uniform-namespace-members table)))
   (define (parse-struct name uniform namespace)
     ;; Deconstruct the uniform name to produce a path through the
     ;; namespace tree, follow it to the end and add the uniform as a
@@ -646,9 +630,7 @@ them into a GPU shader program."
                       (max scratch-size
                            (* size
                               (shader-data-type-size type))))))
-            (begin
-              (pretty-print (namespace->alist namespace))
-              (values namespace scratch-size))))))
+            (values namespace scratch-size)))))
   (define (attribute-count id)
     (let ((bv (make-u32vector 1)))
       (gl-get-programiv id