From 773baa418be6aa0200fc748516887f7f19054be9 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 21 Oct 2019 08:37:39 -0400 Subject: render: shader: Remove debugging code. --- chickadee/render/shader.scm | 20 +------------------- 1 file changed, 1 insertion(+), 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 -- cgit v1.2.3