summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/cps/compile-rtl.scm6
-rw-r--r--module/language/cps/contification.scm6
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))))))