From 1d15832ffc1e46be2d5549c744681cf88776698e Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 1 Nov 2013 19:43:45 +0100 Subject: [PATCH] Revert "Compile-time debugging" This reverts commit 6a37b7faaf150e9fb7945ef79969cb7671d17367. --- module/language/cps/compile-rtl.scm | 6 +----- module/language/cps/contification.scm | 6 ++---- 2 files changed, 3 insertions(+), 9 deletions(-) diff --git a/module/language/cps/compile-rtl.scm b/module/language/cps/compile-rtl.scm index 7ed0c1113..a84280481 100644 --- a/module/language/cps/compile-rtl.scm +++ b/module/language/cps/compile-rtl.scm @@ -49,9 +49,7 @@ (define (optimize exp opts) (define (run-pass exp pass kw default) (if (kw-arg-ref opts kw default) - (begin - (pk 'OPTIMIZING kw) - (pass exp)) + (pass exp) exp)) ;; Calls to source-to-source optimization passes go here. @@ -504,13 +502,11 @@ (_ (values)))) (define (compile-rtl exp env opts) - (pk 'COMPILING) (let* ((exp (fix-arities exp)) (exp (optimize exp opts)) (exp (convert-closures exp)) (exp (reify-primitives exp)) (asm (make-assembler))) - (pk 'CODEGEN) (visit-funs (lambda (fun) (compile-fun fun asm)) exp) diff --git a/module/language/cps/contification.scm b/module/language/cps/contification.scm index aa162e021..da7320660 100644 --- a/module/language/cps/contification.scm +++ b/module/language/cps/contification.scm @@ -348,7 +348,5 @@ (if (null? call-substs) fun ;; Iterate to fixed point. - (begin - (pk 'CONTIFIED (length call-substs)) - (contify - (apply-contification fun call-substs cont-substs fun-elisions cont-splices))))))) + (contify + (apply-contification fun call-substs cont-substs fun-elisions cont-splices))))))