summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee/graphics/seagull.scm19
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))