mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 10:10:23 +02:00
Code Activity

Revert "Compile-time debugging"

Browse source 
This reverts commit 6a37b7faaf.
This commit is contained in:
Andy Wingo 2013-11-01 19:43:45 +01:00
parent 03f16599e3
commit 1d15832ffc
2 changed files with 3 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/language/cps/compile-rtl.scm
View file

@ -49,9 +49,7 @@
(define (optimize exp opts) (define (optimize exp opts)
(define (run-pass exp pass kw default) (define (run-pass exp pass kw default)
(if (kw-arg-ref opts kw default) (if (kw-arg-ref opts kw default)
(begin (pass exp)
(pk 'OPTIMIZING kw)
(pass exp))
exp)) exp))
;; Calls to source-to-source optimization passes go here. ;; Calls to source-to-source optimization passes go here.
@ -504,13 +502,11 @@
(_ (values)))) (_ (values))))
(define (compile-rtl exp env opts) (define (compile-rtl exp env opts)
(pk 'COMPILING)
(let* ((exp (fix-arities exp)) (let* ((exp (fix-arities exp))
(exp (optimize exp opts)) (exp (optimize exp opts))
(exp (convert-closures exp)) (exp (convert-closures exp))
(exp (reify-primitives exp)) (exp (reify-primitives exp))
(asm (make-assembler))) (asm (make-assembler)))
(pk 'CODEGEN)
(visit-funs (lambda (fun) (visit-funs (lambda (fun)
(compile-fun fun asm)) (compile-fun fun asm))
exp) exp)

6
module/language/cps/contification.scm
View file

@ -348,7 +348,5 @@
(if (null? call-substs) (if (null? call-substs)
fun fun
;; Iterate to fixed point. ;; Iterate to fixed point.
(begin (contify
(pk 'CONTIFIED (length call-substs)) (apply-contification fun call-substs cont-substs fun-elisions cont-splices))))))
(contify
(apply-contification fun call-substs cont-substs fun-elisions cont-splices)))))))