From 46d11696f3189c1e68bc41b36754f9a62f483286 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 16 Feb 2023 20:43:46 -0500 Subject: Delete some debug print stuff. --- chickadee/graphics/seagull.scm | 19 ++++--------------- 1 file changed, 4 insertions(+), 15 deletions(-) diff --git a/chickadee/graphics/seagull.scm b/chickadee/graphics/seagull.scm index 58fe04b..515c9e1 100644 --- a/chickadee/graphics/seagull.scm +++ b/chickadee/graphics/seagull.scm @@ -2312,13 +2312,11 @@ (compose-envs (fold extend-env (empty-env) params (map list (function-type-parameters type*))) globals)) - (pk 're-infer-func env) (match func (('lambda _ body) - (pretty-print - (infer-exp (untype body) - (compose-envs env - (top-level-type-env stage)))))) + (infer-exp (untype body) + (compose-envs env + (top-level-type-env stage))))) (define subs* (compose-substitutions subs (vars->subs func env))) @@ -2326,19 +2324,12 @@ (apply-substitutions-to-exp func subs*)) `(function ,name (t (,type*) ,func*))) (delete-duplicates - (find-signatures name body) - ;; (append (append-map (match-lambda - ;; (('function name lambda*) - ;; (find-signatures name lambda*))) - ;; rest) - ;; (find-signatures name body)) - )) + (find-signatures name body))) (loop rest globals))) ((('function name texp) . rest) (cons `(function ,name ,texp) (loop rest globals))) (((qualifier type name) . rest) - (pk 'global qualifier type name) (cons (list qualifier type name) (loop rest (extend-env name @@ -2733,7 +2724,6 @@ (make-seagull-global qualifier type-desc name))) specs)) -(use-modules (ice-9 pretty-print)) ;; Using syntax-case allows us to compile shaders to their fully typed ;; intermediate form at compile time, leaving only GLSL emission for ;; runtime. @@ -2753,7 +2743,6 @@ #:inputs inputs #:outputs outputs #:uniforms uniforms)) - (pretty-print compiled) (with-syntax ((inputs (datum->syntax x inputs)) (outputs (datum->syntax x outputs)) (uniforms (datum->syntax x uniforms)) -- cgit v1.2.3