diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-02-16 20:43:46 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-06-08 08:14:41 -0400 |
| commit | 46d11696f3189c1e68bc41b36754f9a62f483286 (patch) | |
| tree | 7fbd72af2f985e78e49607f39eb1a7237daf4ff4 | |
| parent | 7418d2fea97eab353b43a3bfb1143e346208bba5 (diff) | |
Delete some debug print stuff.
| -rw-r--r-- | chickadee/graphics/seagull.scm | 19 |
1 files 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)) |