diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-01 19:43:45 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-01 19:43:45 +0100 |
commit | 1d15832ffc1e46be2d5549c744681cf88776698e (patch) | |
tree | e391a4eda962f5915f253629721120736a880c7d | |
parent | 03f16599e37d91fdc7564e4baed9a489b2901dec (diff) | |
download | guile-1d15832ffc1e46be2d5549c744681cf88776698e.tar.gz |
Revert "Compile-time debugging"
This reverts commit 6a37b7faaf150e9fb7945ef79969cb7671d17367.
-rw-r--r-- | module/language/cps/compile-rtl.scm | 6 | ||||
-rw-r--r-- | 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)))))) |