mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

Disable CPS optimization passes

Browse source 
* module/language/cps/compile-bytecode.scm (compile-bytecode): Don't
  bother running the CPS optimization passes, as they are redundant
  with CPS2.
This commit is contained in:
Andy Wingo 2015-06-05 00:54:18 +02:00
parent b926d85a17
commit 6f4487f268
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/language/cps/compile-bytecode.scm
View file

@ -510,7 +510,13 @@
(define (compile-bytecode exp env opts) (define (compile-bytecode exp env opts)
;; See comment in `optimize' about the use of set!. ;; See comment in `optimize' about the use of set!.
(set! exp (optimize exp opts))
;; Since CPS2's optimization pass replaces CPS and uses less memory,
;; we disable the optimization pass for now. We'll remove it once
;; we're sure.
;;
;; (set! exp (optimize exp opts))
(set! exp (convert-closures exp)) (set! exp (convert-closures exp))
;; first-order optimization should go here ;; first-order optimization should go here
(set! exp (reify-primitives exp)) (set! exp (reify-primitives exp))