summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-01 19:43:45 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-01 19:43:45 +0100
commit1d15832ffc1e46be2d5549c744681cf88776698e (patch)
treee391a4eda962f5915f253629721120736a880c7d
parent03f16599e37d91fdc7564e4baed9a489b2901dec (diff)
downloadguile-1d15832ffc1e46be2d5549c744681cf88776698e.tar.gz
Revert "Compile-time debugging"
This reverts commit 6a37b7faaf150e9fb7945ef79969cb7671d17367.
-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))))))